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

fix growth map and restructure storm explorer cards

Browse Source
This commit is contained in:
dylan
2026-04-07 23:48:22 -04:00
parent b69812942c
commit 4b3901ff29
2 changed files with 28 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/queries.R
+1 -1
View File
@@ -360,7 +360,7 @@ get_normalized_metric_growth <- function(storm, full_lf_id) {
select(state_fips, county_fips) select(state_fips, county_fips)
query <- tbl(con, I("metrics.pop_housing_normalized_growth")) %>% query <- tbl(con, I("metrics.pop_housing_normalized_growth")) %>%
filter(base_year_population == storm$storm_year) %>% #filter(base_year_population == storm$storm_year) %>%
inner_join(affected_counties, by = c("state_fips", "county_fips")) %>% inner_join(affected_counties, by = c("state_fips", "county_fips")) %>%
inner_join( inner_join(
tbl(con, I("public.counties")), tbl(con, I("public.counties")),
app/ui.R
+27 -30
View File
@@ -140,7 +140,6 @@ ui <- page_navbar(
) )
), ),
card( card(
card_header("Meteorology"),
dygraphOutput("track_met_chart", height = "250px") dygraphOutput("track_met_chart", height = "250px")
) )
) )
@@ -149,8 +148,8 @@ ui <- page_navbar(
), ),
nav_panel( nav_panel(
"Cost Normalization", "Cost Normalization",
layout_columns( layout_column_wrap(
col_widths = 6, col_widths = 1,
card( card(
"MMH/MMP Normalization", "MMH/MMP Normalization",
div( div(
@@ -193,8 +192,6 @@ ui <- page_navbar(
) )
) )
), ),
card(),
card(),
card() card()
) )
), ),
@@ -205,31 +202,6 @@ ui <- page_navbar(
layout_columns( layout_columns(
col_widths = 12, col_widths = 12,
row_heights = c("auto", "1fr", "auto"), row_heights = c("auto", "1fr", "auto"),
card(
fill = FALSE,
sliderInput(
"growth_trend_map_slider",
label = NULL,
min = 0,
max = 2024,
step = 1,
animate = list(
interval = 250,
loop = F
),
value = 0,
sep = "",
width = "100%",
ticks = F
)
),
card(
full_screen = TRUE,
card_body(
class = "p-0",
leafletOutput("growth_map", height = "100%")
)
),
card( card(
fill = FALSE, fill = FALSE,
layout_columns( layout_columns(
@@ -247,6 +219,31 @@ ui <- page_navbar(
justified = T justified = T
) )
), ),
),
card(
full_screen = TRUE,
card_body(
class = "p-0",
leafletOutput("growth_map", height = "100%")
)
),
card(
fill = FALSE,
sliderInput(
"growth_trend_map_slider",
label = NULL,
min = 0,
max = 2024,
step = 1,
animate = list(
interval = 250,
loop = F
),
value = 0,
sep = "",
width = "100%",
ticks = F
)
) )
) )
) )