diff --git a/dashboard.Rmd b/dashboard.Rmd index d1101a6..0344c63 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -790,21 +790,22 @@ output$all_storms_map <- renderLeaflet({ data = all_storm_landfalls, lng = ~lon, lat = ~lat, - radius = 5, + radius = 2, weight = 0, - color = "red", - fillColor = "red", - fillOpacity = 0.8 + color = "blue", + fillColor = "blue", + fillOpacity = 0.5 ) %>% addCircles( data = all_storm_landfalls, lng = ~lon, lat = ~lat, radius = ~rmw_meters, - weight = 2, - color = "red", - fillColor = "red", - fillOpacity = 0.3 + popup = ~paste0(storm_name, " ", storm_year), + weight = 1, + color = "blue", + fillColor = "blue", + fillOpacity = 0.05 ) })