From ba04df7d63a80d535e9538924af1e3a0879234db Mon Sep 17 00:00:00 2001
From: kjsato <koz.sato@gmail.com>
Date: Mon, 25 Mar 2024 13:31:52 -0400
Subject: [PATCH] modified path test code part in ensemble.R

---
 scripts/ensemble.R | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/scripts/ensemble.R b/scripts/ensemble.R
index db20b69a..9c10f004 100644
--- a/scripts/ensemble.R
+++ b/scripts/ensemble.R
@@ -4,8 +4,8 @@ local_path <- paste0(dirname(here::here()))
 dir_path <- file.path(local_path, "rsv-forecast-hub/")
 data_path <- file.path(local_path, "rsv-forecast-hub/")
 print(local_path)
-dir_path <- local_path
-data_path <- local_path
+#dir_path <- local_path
+#data_path <- local_path
 print(dir_path)
 
 ## ----lib-ens, include=FALSE---------------------------------------------------
@@ -24,6 +24,12 @@ if (file.exists(tasks_json_path)) {
 } else {
   print("tasks.json does not exist.")
 }
+tasks_json_path <- file.path(dir_path, "hub-config/tasks.json")
+if (file.exists(tasks_json_path)) {
+  print("tasks.json exists.")
+} else {
+  print("tasks.json does not exist.")
+}
 ## ----setup_specifics, include=FALSE---------------------------------------------------
 print(file.path(local_path, "../../hub-config/tasks.json"))
 print(getwd())