mirror of
https://github.com/dylanbenzi/hurricane_normalization_app.git
synced 2026-07-30 05:08:57 +00:00
modify user flow prior to major redesign
This commit is contained in:
@@ -100,6 +100,14 @@ get_latest_normalization_year <- function() {
|
||||
return(result)
|
||||
}
|
||||
|
||||
get_storm_data_coverage <- function() {
|
||||
query <- get_tbl("storm_data_coverage")
|
||||
|
||||
result <- query %>% collect()
|
||||
|
||||
return(result)
|
||||
}
|
||||
|
||||
get_yearly_usa_pop_hu <- function(yr) {
|
||||
query <- get_tbl("usa_pop_hu", "metrics") %>%
|
||||
filter(year == yr)
|
||||
|
||||
Reference in New Issue
Block a user