only data3

NEFSC · May 17, 2024 · 2db9fce · 2db9fce
1 parent 7a85705
commit 2db9fce
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Production/scripts/rectangleSelectHg.R b/Production/scripts/rectangleSelectHg.R
@@ -11,9 +11,9 @@ dashboardSidebar(disable = TRUE)
 ####
 
 # ## read in data
-   data2 <- read.csv("./data/GraySealHaulouts.csv")
+  # data2 <- read.csv("./data/GraySealHaulouts.csv")
   # data2<- select(data2, Site=HAULOUTSITE, LAT, LON)
-  #sites <- read.csv("./data/HgPupsYearandSite2.csv")
+  sites <- read.csv("./data/HgPupsYearandSite2.csv")
   # data3$Site[data3$Site=="Monomoy"]<-"Monomoy Island"
   # data3$Site[data3$Site=="Muskeget"]<-"Muskeget Island"
   # data3$Site[data3$Site=="Nomans"]<-"Nomans Island"
@@ -40,7 +40,7 @@ dashboardSidebar(disable = TRUE)
 #      lat = ~LAT,
 #      radius = 3,
 #      color = 'yellow'
-#      
+#      popup = ~Site,
 #    )   
 # 
 #