fix: enable same date calibration inputs #515

facebookexperimental · Oct 20, 2022 · 8ea01ed · 8ea01ed
1 parent 46f8afb
commit 8ea01ed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/R/checks.R b/R/R/checks.R
@@ -511,10 +511,10 @@ check_calibration <- function(dt_input, date_var, calibration_input, dayInterval
           temp$channel, temp$liftStartDate, temp$liftEndDate, window_start, window_end
         ))
       }
-      if (temp$liftStartDate >= temp$liftEndDate) {
+      if (temp$liftStartDate > temp$liftEndDate) {
         stop(sprintf(
           paste(
-            "Your calibration's date range for %s between %s and %s should respect liftStartDate < liftEndDate.",
+            "Your calibration's date range for %s between %s and %s should respect liftStartDate <= liftEndDate.",
             "Please, correct this experiment from 'calibration_input'."
           ),
           temp$channel, temp$liftStartDate, temp$liftEndDate