Update staging_is_active.R

r-multiverse · Aug 21, 2024 · e51b323 · e51b323
1 parent 42db2b0
commit e51b323
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/staging_is_active.R b/R/staging_is_active.R
@@ -26,7 +26,7 @@ staging_is_active <- function(
 within_staging <- function(start, today) {
   month <- today$mon + 1L
   day <- today$mday
-  stopifnot(day <= 28L)
+  stopifnot(start$mday <= 28L)
   (month == start[1L] && day >= start[2L]) ||
     (month == start[1L] + 1L && day < start[2L])
 }