code/application/download_zoltar_forecasts.R

In reichlab/covidEnsembles: What the Package Does (One Line, Title Case)

# download all project forecasts from zoltar
library(zoltr)

zoltar_connection <- new_connection()
zoltr::zoltar_authenticate(zoltar_connection,
  Sys.getenv("Z_USERNAME"), Sys.getenv("Z_PASSWORD"))

system.time({
  all_forecasts <- covidEnsembles::get_all_project_forecasts(
    zoltar_connection,
    project_url="https://www.zoltardata.com/api/project/44/")
})

all_cum_death_forecasts <- all_forecasts %>%
  dplyr::filter(target %in% paste0(1:4, ' wk ahead cum death'))
saveRDS(all_cum_death_forecasts, './data/all_cum_death_forecasts.rds')

all_inc_death_forecasts <- all_forecasts %>%
  dplyr::filter(target %in% paste0(1:4, ' wk ahead inc death'))
saveRDS(all_inc_death_forecasts, './data/all_inc_death_forecasts.rds')