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, "
",