dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-30 05:08:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

add map popups

Browse Source
This commit is contained in:
dylan
2025-07-11 00:25:39 -04:00
parent d3db7057a5
commit 531b98bfb3
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+9 -8
View File
@@ -790,21 +790,22 @@ output$all_storms_map <- renderLeaflet({
data = all_storm_landfalls, data = all_storm_landfalls,
lng = ~lon, lng = ~lon,
lat = ~lat, lat = ~lat,
radius = 5, radius = 2,
weight = 0, weight = 0,
color = "red", color = "blue",
fillColor = "red", fillColor = "blue",
fillOpacity = 0.8 fillOpacity = 0.5
) %>% ) %>%
addCircles( addCircles(
data = all_storm_landfalls, data = all_storm_landfalls,
lng = ~lon, lng = ~lon,
lat = ~lat, lat = ~lat,
radius = ~rmw_meters, radius = ~rmw_meters,
weight = 2, popup = ~paste0(storm_name, " ", storm_year),
color = "red", weight = 1,
fillColor = "red", color = "blue",
fillOpacity = 0.3 fillColor = "blue",
fillOpacity = 0.05
) )
}) })