consolidated shapefile, more sf

NEFSC · Jul 2, 2024 · 7f31657 · 7f31657
1 parent 22049c3
commit 7f31657
Show file tree

Hide file tree

Showing 8 changed files with 6 additions and 1 deletion.
diff --git a/Production/data/BayPolys.dbf → Production/data/BayPolys/BayPolys.dbf b/Production/data/BayPolys.dbf → Production/data/BayPolys/BayPolys.dbf
diff --git a/Production/data/BayPolys.prj → Production/data/BayPolys/BayPolys.prj b/Production/data/BayPolys.prj → Production/data/BayPolys/BayPolys.prj
diff --git a/Production/data/BayPolys/BayPolys.sbn b/Production/data/BayPolys/BayPolys.sbn
diff --git a/Production/data/BayPolys/BayPolys.sbx b/Production/data/BayPolys/BayPolys.sbx
diff --git a/Production/data/BayPolys/BayPolys.shp b/Production/data/BayPolys/BayPolys.shp
diff --git a/Production/data/BayPolys/BayPolys.shp.xml b/Production/data/BayPolys/BayPolys.shp.xml
diff --git a/Production/data/BayPolys/BayPolys.shx b/Production/data/BayPolys/BayPolys.shx
diff --git a/Production/scripts/rectangleSelectPv2.R b/Production/scripts/rectangleSelectPv2.R
@@ -3,6 +3,8 @@ library(leaflet)
 library(DT)
 library(crosstalk)
 library(shinydashboard)
+library(tidyverse)
+library (sf)
 
 
 dashboardSidebar(disable = TRUE)
@@ -15,7 +17,9 @@ baycts<-merge(baycts, baycenters, by = "BAYNUM", all.x=TRUE)
 
 baycts<- select(baycts, LONG, LAT, BAYCODE, Bayunit=BAYDESC, Year, Nonpups=Estimate.Nonpups, Pups=Estimate.Pups)
 baycts$Bayunit<-as.factor(baycts$Bayunit)
-bays<-st_read("./data/BayPolys.shp")
+#bays<-st_read("./data/BayPolys.shp")
+bays<-sf::read_sf("./data/BayPolys/BayPolys.shp")
+
 
 # Wrap data frame in SharedData
 sd <- SharedData$new(baycts)