some more edits

Production/app.R

@@ -36,7 +36,7 @@ ui <- dashboardPage(
        ,
 #       # # # third tab content
        tabItem(tabName = "hauloutmap",
-               source('./scripts/hauloutmap2_ui.R', local = TRUE)$value, h4("Green markers depict sites surveyed by the NEFSC or University of Maine where adults of the species were seen, red markers are where pups were seen.")
+               source('./scripts/hauloutmap2_ui.R', local = TRUE)$value, h4("Orange markers depict sites surveyed by the NEFSC or University of Maine where adults of the species were seen, purple markers are where pups were seen.")
        ) 
        ,
 #       # # # another tab content

Production/scripts/hauloutmap2_server.R

@@ -36,7 +36,7 @@ output$mymap <- renderLeaflet({
     addProviderTiles(providers$Esri.WorldImagery,
                      options = providerTileOptions(noWrap = TRUE)
     ) %>%
-    addCircleMarkers(data = points(), label = ~paste(Name), stroke = FALSE, fillOpacity = 2, radius = 4, color = ~ ifelse(Pup == "Y", "red", "green"))
+    addCircleMarkers(data = points(), label = ~paste(Name), stroke = FALSE, fillOpacity = 2, radius = 4, color = ~ ifelse(Pup == "Y", "purple", "orange"))
 })
 
 

Production/scripts/rectangleSelectHg.R

@@ -60,14 +60,14 @@ 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. 
+      column(6,ltlf2,  p(HTML("<b>Interactive map: Use the bracket tool in the corner of this map and drag the corners to select rookeries (yellow dots) of interest. 
+                        Or just use the filters in the datatable at left to select data.</b>")), 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", target="_blank", rel="noopener noreferrer", "2020,"), tags$a(href="https://repository.library.noaa.gov/view/noaa/46455", target="_blank", rel="noopener noreferrer", "2022.")), 
-                         h4("Use the bracket tool in the corner of this map and drag the corners to select rookeries (yellow dots) of interest. 
-                        Or just use the filters in the datatable at left to select data."))
+                        )
     ,
  #    
  #     

Production/scripts/rectangleSelectPv2.R

@@ -40,7 +40,8 @@ ltlf5<- leaflet(sd) %>%
               fillOpacity = 0.6,       
               color = "darkgrey",      
               weight = 1.5, 
-              highlightOptions = highlightOptions(color = "white", weight = 2)
+              highlightOptions = highlightOptions(color = "white", weight = 2
+                                                  )
   ) %>%
     addCircleMarkers(
     lng = ~LONG,
@@ -64,9 +65,9 @@ body <- dashboardBody(
   ),
   fluidRow(
 
-    column(6,ltlf5, h4(style="text-align: justify;","The Northeast Fisheries Science Center has been conducting aerial surveys of harbor seals since 1983 to monitor the abundance of the population in U.S. waters. Surveys are flown during the pupping season when animals are concentrated on the coast of Maine and timed to coincide with peak pupping estimated to be around the end of May. Surveys are flown from a NOAA Twin Otter at 230m within 2 hours of low tide using a hand-held Canon camera and fixed 300mm lens. Close to 1,000 ledges are surveyed and grouped into bay units for analysis. The data linked to this map is the estimated abundance of both pups and non-pups by bay unit each year from 1983-2018. For more information, see ", 
-                       tags$a(href="https://onlinelibrary.wiley.com/doi/full/10.1111/mms.12873",  target="_blank", rel="noopener noreferrer","Sigourney et al. 2020")),  h4("Use the bracket tool in the corner of this map and drag the corners to select bay units of interest. Make sure to include the polygon center (yellow dot) in your selection.
-                       Or just use the filters in the datatable at left to select data.")),
+    column(6,ltlf5, p(HTML("<b>Interactive map: Use the bracket tool in the corner of this map and drag the corners to select bay units of interest. Make sure to include the polygon center (yellow dot) in your selection.
+                       Or just use the filters in the datatable at left to select data.</b>")), h4(style="text-align: justify;","The Northeast Fisheries Science Center has been conducting aerial surveys of harbor seals since 1983 to monitor the abundance of the population in U.S. waters. Surveys are flown during the pupping season when animals are concentrated on the coast of Maine and timed to coincide with peak pupping estimated to be around the end of May. Surveys are flown from a NOAA Twin Otter at 230m within 2 hours of low tide using a hand-held Canon camera and fixed 300mm lens. Close to 1,000 ledges are surveyed and grouped into bay units (polygons on this map) for analysis. The data linked to this map is the estimated abundance of both pups and non-pups by bay unit each year from 1993-2018. For more information, see ", 
+                       tags$a(href="https://onlinelibrary.wiley.com/doi/full/10.1111/mms.12873",  target="_blank", rel="noopener noreferrer","Sigourney et al. 2020"))),
 
     column(6,DT1),  p(style="text-align: justify;","*These estimates have been recomputed from Sigourney et al. 2020 to report the mean annual abundance of non-pups and pups in each bay unit, so total abundance (i.e. summing across bay units) may not match exactly with those reported in Sigourney et al. 2020.")