fix: refresh line changing

AlbusTang · Dec 16, 2022 · 0dcdcdd · 0dcdcdd
1 parent 0f1279f
commit 0dcdcdd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/R/refresh.R b/R/R/refresh.R
@@ -208,10 +208,10 @@ robyn_refresh <- function(json_file = NULL,
     if (TRUE) {
       InputCollectRF$refreshAddedStart <- as.Date(InputCollectRF$window_end) + InputCollectRF$dayInterval
       totalDates <- as.Date(dt_input[, InputCollectRF$date_var][[1]])
-      refreshStartWhich <- InputCollectRF$rollingWindowStartWhich <- which.min(abs(difftime(totalDates, refreshStart, units = "days")))
-      refreshEndWhich <- InputCollectRF$rollingWindowEndWhich <- which.min(abs(difftime(totalDates, refreshEnd, units = "days")))
       refreshStart <- InputCollectRF$window_start <- as.Date(InputCollectRF$window_start) + InputCollectRF$dayInterval * refresh_steps
+      refreshStartWhich <- InputCollectRF$rollingWindowStartWhich <- which.min(abs(difftime(totalDates, refreshStart, units = "days")))
       refreshEnd <- InputCollectRF$window_end <- as.Date(InputCollectRF$window_end) + InputCollectRF$dayInterval * refresh_steps
+      refreshEndWhich <- InputCollectRF$rollingWindowEndWhich <- which.min(abs(difftime(totalDates, refreshEnd, units = "days")))
       InputCollectRF$rollingWindowLength <- refreshEndWhich - refreshStartWhich + 1
     }