diff --git a/DESCRIPTION b/DESCRIPTION index 7f86f32..a8d77a9 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -3,7 +3,7 @@ Type: Package Encoding: UTF-8 Title: Retrieve Flu Season Data from the United States Centers for Disease Control and Prevention ('CDC') 'FluView' Portal -Version: 1.0.0.9000 +Version: 1.0.0.9001 Date: 2022-11-22 Authors@R: c( person("Bob", "Rudis", email = "bob@rud.is", role = c("aut", "cre"), diff --git a/R/hospital.r b/R/hospital.r index 2b54734..05ca484 100644 --- a/R/hospital.r +++ b/R/hospital.r @@ -44,7 +44,7 @@ hospitalizations <- function(surveillance_area=c("flusurv", "eip", "ihsp"), call.=FALSE) } - hosp <- list(res = res$default_data, meta = meta) + hosp <- list(res = meta$default_data, meta = meta) age_df <- setNames(hosp$meta$master_lookup, c("variable", "value_id", "parent_id", "label", "color", "enabled")) age_df <- age_df[(age_df$variable == "Age" | age_df$value_id == 0) & !is.na(age_df$value_id),]