Update start_rains.R

IDEMSInternational · Dec 10, 2024 · a12b5a4 · a12b5a4
1 parent bd5d46a
commit a12b5a4
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/start_rains.R b/R/start_rains.R
@@ -89,9 +89,10 @@ start_rains <- function(data, date_time, station = NULL, year = NULL, rain = NUL
 
   # Do we have a shifted start doy?
   if (!is.null(s_start_doy)){
-    data <- shift_dates(data = data, date = date_time, s_start_doy = s_start_doy - 1)
-    year <- "year"
-    doy <- "doy"
+    # The shifting has already happened in R-Instat
+    #data <- shift_dates(data = data, date = date_time, s_start_doy = s_start_doy - 1)
+    year <- "s_year"
+    doy <- "s_doy"
     data[[doy]] <- data[["s_doy"]]
     data[[year]] <- data[["s_year"]]
   } else {