diff --git a/app/queries.R b/app/queries.R index a339afc..6c52079 100644 --- a/app/queries.R +++ b/app/queries.R @@ -99,9 +99,9 @@ split_full_lf_id <- function(full_lf_id) { # DB getters -get_yearly_economics <- function(year) { +get_yearly_economics <- function(yr) { query <- econ.usa_yearly %>% - filter(year == year) + filter(year == yr) result <- query %>% collect() @@ -117,9 +117,9 @@ get_latest_normalization_year <- function() { return(result) } -get_yearly_usa_pop_hu <- function(year) { +get_yearly_usa_pop_hu <- function(yr) { query <- metrics.usa_pop_hu %>% - filter(year == year) + filter(year == yr) result <- query %>% collect()