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

remove test storm growth counties

Browse Source
This commit is contained in:
dylan
2025-08-02 16:03:40 -04:00
parent 68b00b6338
commit 7a338b7f14
1 changed files with 7 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+7 -15
View File
@@ -794,13 +794,7 @@ observe({
) )
}) })
test_storm <- reactiveValues( growth_counties <- reactive({
storm_basin = "AL",
storm_year = 1926,
storm_name = "GREAT MIAMI",
)
test_counties <- reactive({
req( req(
storm_selection$is_selected, storm_selection$is_selected,
input$growth_trend_lf_select input$growth_trend_lf_select
@@ -831,30 +825,28 @@ test_counties <- reactive({
output$pop_growth_map <- renderLeaflet({ output$pop_growth_map <- renderLeaflet({
leaflet() %>% leaflet() %>%
addProviderTiles("Stadia.AlidadeSmooth") %>% addProviderTiles("Stadia.AlidadeSmooth")
setView(lng = -81.3, lat = 25.6, zoom = 7)
}) })
output$housing_growth_map <- renderLeaflet({ output$housing_growth_map <- renderLeaflet({
leaflet() %>% leaflet() %>%
addProviderTiles("Stadia.AlidadeSmooth") %>% addProviderTiles("Stadia.AlidadeSmooth")
setView(lng = -81.3, lat = 25.6, zoom = 7)
}) })
observe({ observe({
req( req(
test_counties, growth_counties,
input$growth_trend_map_slider input$growth_trend_map_slider
) )
growth_year <- input$growth_trend_map_slider growth_year <- input$growth_trend_map_slider
test_county_year <- test_counties() %>% growth_county_year <- growth_counties() %>%
filter( filter(
year == growth_year year == growth_year
) )
leafletProxy("pop_growth_map", data = test_county_year) %>% leafletProxy("pop_growth_map", data = growth_county_year) %>%
clearShapes() %>% clearShapes() %>%
addPolygons( addPolygons(
fillColor = "red", fillColor = "red",
@@ -863,7 +855,7 @@ observe({
weight = 2 weight = 2
) )
leafletProxy("housing_growth_map", data = test_county_year) %>% leafletProxy("housing_growth_map", data = growth_county_year) %>%
clearShapes() %>% clearShapes() %>%
addPolygons( addPolygons(
fillColor = "blue", fillColor = "blue",