added final stretch

wikipathways · Sep 8, 2024 · 0fc180d · 0fc180d
1 parent 58bf5a6
commit 0fc180d
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 6 deletions.
diff --git a/scripts/LOCAL_fetch_figures_v2.R b/scripts/LOCAL_fetch_figures_v2.R
@@ -92,9 +92,11 @@ prepare_date_range <- function(config) {
     last_run_date <- ymd(config$last_run)
     current_date <- Sys.Date()
 
-    if (last_run_date > current_date) {
-      log_message("Neither date_range nor last_run indicate a valid date range.")
-      return(NULL)
+    if (last_run_date %m+% months(2) > current_date) {
+      log_message("Final stretch, then deactivating cycle.")
+      start_date <- format(last_run_date, "%Y/%m/%d")
+      end_date <- format("3000/01/01")
+      return(list(start_date, end_date))
     } else {
       start_date <- format(last_run_date, "%Y/%m/%d")
       end_date <- format(last_run_date %m+% months(1), "%Y/%m/%d")

diff --git a/scripts/fetch_figures_v2.R b/scripts/fetch_figures_v2.R
@@ -85,9 +85,11 @@ prepare_date_range <- function(config) {
     last_run_date <- ymd(config$last_run)
     current_date <- Sys.Date()
 
-    if (last_run_date > current_date) {
-      log_message("Neither date_range nor last_run indicate a valid date range.")
-      return(NULL)
+    if (last_run_date %m+% months(2) > current_date) {
+      log_message("Final stretch, then deactivating cycle.")
+      start_date <- format(last_run_date, "%Y/%m/%d")
+      end_date <- format("3000/01/01")
+      return(list(start_date, end_date))
     } else {
       start_date <- format(last_run_date, "%Y/%m/%d")
       end_date <- format(last_run_date %m+% months(1), "%Y/%m/%d")