Merge pull request #15 from kjsato/main-test

added some print lines fot test in ensemble.R

scripts/ensemble.R

@@ -22,11 +22,13 @@ library(jsonlite)
 
 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()]
-
+print(file.path(dir_path, "hub-config/tasks.json"))
 curr_origin_date <- as.Date(max(dates_archive, na.rm = TRUE))
 
 ## ----prep_ens, include=FALSE--------------------------------------------------
+
 hub_path <- file.path(local_path, "hub-config")
+print(file.path(hub_path))
 hub_con <- connect_hub(hub_path)
 
 ## ----load_data, include=FALSE--------------------------------------------------