From 0c4d95206cd52f88924196682571e883db6f0b3b Mon Sep 17 00:00:00 2001
From: JOY LIU <113057199+joyliujoyliu@users.noreply.github.com>
Date: Tue, 2 Jul 2024 13:39:07 -0300
Subject: [PATCH] circle color has to be fixed
---
R/leaflet_graph.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/leaflet_graph.R b/R/leaflet_graph.R
index 76cc9a8..d71ae9d 100644
--- a/R/leaflet_graph.R
+++ b/R/leaflet_graph.R
@@ -9,7 +9,7 @@ leaflet_graph <- function(station_spatial) {
leaflet::leaflet(data = df) |>
leaflet::addTiles() |>
leaflet::addCircleMarkers( lat = ~lat, lng = ~lon,
- color= ~numPal(Detections), fillColor = ~numPal(Detections),fillOpacity = 0.7,
+ color= 'black', fillColor = ~numPal(Detections),fillOpacity = 0.7,
popup = paste("Station ", df$station , "
",
"PI:", df$PI, "
",
"Detections:", df$Detections, "
",