refactor(PE_Oudin): return a warning message instead an error when the time series is inconsistent

Refs #134

R/PE_Oudin.R

@@ -42,10 +42,10 @@ PE_Oudin <- function(JD, Temp,
   TimeStepOut <- match.arg(TimeStepOut, choices = TimeStep)
   rleJD <- rle(JD)
   if (TimeStepIn == "daily" & any(rleJD$lengths != 1)) {
-    stop("each day must have only one identical value of julian days")
+    warning("each day should have only one identical value of julian days. The time series is not sorted, or contains duplicate or missing dates")
   }
   if (TimeStepIn == "hourly" & any(rleJD$lengths != 24)) {
-    stop("each day must have 24 identical values of julian days (one for each hour)")
+    warning("each day must have 24 identical values of julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates")
   }