with map too

Production/scripts/rectangleSelectHg.R

@@ -34,15 +34,15 @@ dashboardSidebar(disable = TRUE)
     )),
   )  
 #   
-#  ltlf2<- leaflet(share) %>% 
-#    addProviderTiles(providers$Esri.WorldImagery) %>%
-#    addCircleMarkers(
-#      lng = ~LON,
-#      lat = ~LAT,
-#      radius = 3,
-#      color = 'yellow'
-#      popup = ~Site,
-#    )   
+  ltlf2<- leaflet(share) %>% 
+    addProviderTiles(providers$Esri.WorldImagery) %>%
+    addCircleMarkers(
+      lng = ~LON,
+      lat = ~LAT,
+      radius = 3,
+      color = 'yellow',
+      popup = ~Site,
+    )   
 # 
 # 
 # 
@@ -58,21 +58,21 @@ dashboardSidebar(disable = TRUE)
      ),
    )
   ,
-#    fluidRow(
-# 
-#      column(6,ltlf2, h4(style="text-align: justify;","The NEFSC has been conducting aerial surveys of gray seal pupping colonies since 2005 to monitor the number of pups born in U.S. waters. 
-#                         Surveys were flown from either a Cessna 252, Cessna Skymaster, or NOAA Twin Otter at altitudes ranging from 180-230 m, 
-#                         using hand-held or belly-mounted Canon camera systems. Ideally, surveys are flown after all pups are born and before they start leaving the colony, 
-#                         but in some years surveys may have been flown before or after this optimal window. Furthermore, not all colonies may have been surveyed each year 
-#                         due to logistics or if the site was not yet an established pupping colony. This map represents the minimum count of pups born on each colony from 2005-2021, 
-#                         and if multiple flights were flown in a season, the maximum count of replicate surveys. For more information, see Wood et al.", tags$a(href="https://academic.oup.com/jmammal/article/101/1/121/56750962020", "2020,"), tags$a(href="https://repository.library.noaa.gov/view/noaa/46455", "2022.")), 
-#                         h4("Use the bracket tool in the corner of this map and drag the corners to select rookeries (blue dots) of interest. 
-#                         Or just use the filters in the datatable at left to select data."))
-#    ,
-# #    
-# #     
+    fluidRow(
+
+      column(6,ltlf2, h4(style="text-align: justify;","The NEFSC has been conducting aerial surveys of gray seal pupping colonies since 2005 to monitor the number of pups born in U.S. waters. 
+                        Surveys were flown from either a Cessna 252, Cessna Skymaster, or NOAA Twin Otter at altitudes ranging from 180-230 m, 
+                         using hand-held or belly-mounted Canon camera systems. Ideally, surveys are flown after all pups are born and before they start leaving the colony, 
+                         but in some years surveys may have been flown before or after this optimal window. Furthermore, not all colonies may have been surveyed each year 
+                         due to logistics or if the site was not yet an established pupping colony. This map represents the minimum count of pups born on each colony from 2005-2021, 
+                         and if multiple flights were flown in a season, the maximum count of replicate surveys. For more information, see Wood et al.", tags$a(href="https://academic.oup.com/jmammal/article/101/1/121/56750962020", "2020,"), tags$a(href="https://repository.library.noaa.gov/view/noaa/46455", "2022.")), 
+                         h4("Use the bracket tool in the corner of this map and drag the corners to select rookeries (blue dots) of interest. 
+                        Or just use the filters in the datatable at left to select data."))
+    ,
+ #    
+ #     
     column(6,DT2),  p(style="text-align: justify;","* indicates site not surveyed; ** indicates the counts were removed due to poor image quality/coverage, *** indicates the counts were removed due to survey date.")
-#   )
+   )
 # 
  )
 # 

Production/scripts/rectangleSelectPv2.R

@@ -46,7 +46,8 @@ ltlf5<- leaflet(sd) %>%
     lng = ~LONG,
     lat = ~LAT,
     radius = 3,
-    color = 'yellow'
+    color = 'yellow',
+    popup = ~Bayunit,
 
   )