Update annual_rain.R

IDEMSInternational · Dec 10, 2024 · 6035df4 · 6035df4
1 parent a12b5a4
commit 6035df4
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/annual_rain.R b/R/annual_rain.R
@@ -32,9 +32,10 @@ annual_rain <- function(data, date_time, rain, year = NULL, s_start_doy = NULL,
          'total_rain' or 'n_rain' must be TRUE.")
   }
   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[[year]] <- data[["s_year"]]
   }
   summaries <- c()