modified dir_path to use local_dir in ensemble.R and addedlibrary(jso…

…nlite)
HopkinsIDD · Mar 25, 2024 · 3f73988 · 3f73988
1 parent 5c7839b
commit 3f73988
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/scripts/ensemble.R b/scripts/ensemble.R
@@ -16,16 +16,17 @@ library(hubData)
 library(hubEnsembles)
 library(dplyr)
 library(purrr)
+library(jsonlite)
 
 ## ----setup_specifics, include=FALSE---------------------------------------------------
 
-dates_archive <- unlist(jsonlite::read_json(file.path(dir_path, "hub-config/tasks.json"))$rounds[[1]]$model_tasks[[1]]$task_ids$origin_date$optional)
+dates_archive <- unlist(jsonlite::read_json(file.path(local_path, "hub-config/tasks.json"))$rounds[[1]]$model_tasks[[1]]$task_ids$origin_date$optional)
 dates_archive <- dates_archive[as.Date(dates_archive) <= Sys.Date()]
 
 curr_origin_date <- as.Date(max(dates_archive, na.rm = TRUE))
 
 ## ----prep_ens, include=FALSE--------------------------------------------------
-hub_path <- file.path(dir_path, "hub-config")
+hub_path <- file.path(local_path, "hub-config")
 hub_con <- connect_hub(hub_path)
 
 ## ----load_data, include=FALSE--------------------------------------------------