diff --git a/dashboard.Rmd b/dashboard.Rmd index ff36684..ef7398b 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -462,8 +462,8 @@ output$track_map <- renderLeaflet({ lat = ~lat, radius = 5, weight = 0, - color = "red", - fillColor = "red", + color = ~line_color, + fillColor = ~line_color, fillOpacity = 1, popup = ~paste0("LANDFALL", "
", "DATE", "
", @@ -484,8 +484,8 @@ output$track_map <- renderLeaflet({ lat = ~lat, radius = ~rmw_meters, weight = 2, - color = "red", - fillColor = "red", + color = ~line_color, + fillColor = ~line_color, fillOpacity = 0.3, popup = ~paste0("LANDFALL", "
", "DATE", "
",