Update R/grouped_epi_archive.R

dshemetov · brookslogan · web-flow · commit 0f0ec67863d0 · 2024-06-21T15:52:54.000-07:00
Co-authored-by: brookslogan &lt;lcbrooks+github@andrew.cmu.edu&gt;
diff --git a/R/grouped_epi_archive.R b/R/grouped_epi_archive.R
@@ -253,7 +253,7 @@ epix_slide.grouped_epi_archive <- function(
   }
 
   # Validate and pre-process `before`:
-  if (!(anyInfinite(before) || testInt(before, lower = 0L, null.ok = FALSE, na.ok = FALSE))) {
+  if (!(identical(before, Inf) || test_int(before, lower = 0L))) {
     cli_abort("`before` must be a non-negative integer or Inf.")
   }
 

Original file line number	Diff line number	Diff line change
`@@ -253,7 +253,7 @@ epix_slide.grouped_epi_archive <- function(`
`253`	`253`	`}`
`254`	`254`
`255`	`255`	# Validate and pre-process `before`:
`256`		`- if (!(anyInfinite(before) \|\| testInt(before, lower = 0L, null.ok = FALSE, na.ok = FALSE))) {`
	`256`	`+ if (!(identical(before, Inf) \|\| test_int(before, lower = 0L))) {`
`257`	`257`	cli_abort("`before` must be a non-negative integer or Inf.")
`258`	`258`	`}`
`259`	`259`