From b8b57556392f92a59e5f8cf485a59f90c7d4e143 Mon Sep 17 00:00:00 2001
From: cristinamullin <mullin.cristina@epa.gov>
Date: Thu, 2 Nov 2023 09:30:09 -0400
Subject: [PATCH] add note

---
 R/Figures.R | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/R/Figures.R b/R/Figures.R
index 1e803bcd..07faa36f 100644
--- 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,