add note

USEPA · Nov 2, 2023 · b8b5755 · b8b5755
1 parent 7891fdc
commit b8b5755
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/R/Figures.R b/R/Figures.R
@@ -416,7 +416,16 @@ TADA_OverviewMap <- function(.data) {
       leaflet::clearShapes() %>% # get rid of whatever was there before if loading a second dataset
       leaflet::fitBounds(lng1 = min(sumdat$TADA.LongitudeMeasure), lat1 = min(sumdat$TADA.LatitudeMeasure), lng2 = max(sumdat$TADA.LongitudeMeasure), lat2 = max(sumdat$TADA.LatitudeMeasure)) %>% # fit to bounds of data in tadat$raw
       leaflet::addCircleMarkers(
-        data = sumdat, lng = ~TADA.LongitudeMeasure, lat = ~TADA.LatitudeMeasure, color = "red", fillColor = ~ pal(Parameter_Count), fillOpacity = 0.7, stroke = TRUE, weight = 1.5, radius = sumdat$radius,
+        data = sumdat, 
+        lng = ~TADA.LongitudeMeasure, 
+        lat = ~TADA.LatitudeMeasure, 
+        # sets color of monitoring site circles 
+        color = "red", 
+        fillColor = ~ pal(Parameter_Count), 
+        fillOpacity = 0.7, 
+        stroke = TRUE, 
+        weight = 1.5, 
+        radius = sumdat$radius,
         popup = paste0(
           "Site ID: ", sumdat$MonitoringLocationIdentifier,
           "<br> Site Name: ", sumdat$MonitoringLocationName,