fix

dshemetov · dshemetov · commit 801fa4d56b5f · 2025-04-03T13:56:24.000-07:00
diff --git a/R/methods-epi_archive.R b/R/methods-epi_archive.R
@@ -91,7 +91,7 @@ epix_as_of <- function(x, version, min_time_value = -Inf, all_versions = FALSE,
   }
   assert_scalar(min_time_value, na.ok = FALSE)
   min_time_value_inf <- is.infinite(min_time_value) && min_time_value < 0
-  min_time_value_same_type <- typeof(min_time_value) == typeof(x$DT$time_value) &&
+  min_time_value_same_type <- typeof(min_time_value) == typeof(x$DT$time_value) &
     class(min_time_value) == class(x$DT$time_value)
   if (!min_time_value_inf && !min_time_value_same_type) {
     cli_abort("`min_time_value` must be either -Inf or a time_value of the same type and

Original file line number	Diff line number	Diff line change
`@@ -91,7 +91,7 @@ epix_as_of <- function(x, version, min_time_value = -Inf, all_versions = FALSE,`
`91`	`91`	`}`
`92`	`92`	`assert_scalar(min_time_value, na.ok = FALSE)`
`93`	`93`	`min_time_value_inf <- is.infinite(min_time_value) && min_time_value < 0`
`94`		`- min_time_value_same_type <- typeof(min_time_value) == typeof(x$DT$time_value) &&`
	`94`	`+ min_time_value_same_type <- typeof(min_time_value) == typeof(x$DT$time_value) &`
`95`	`95`	`class(min_time_value) == class(x$DT$time_value)`
`96`	`96`	`if (!min_time_value_inf && !min_time_value_same_type) {`
`97`	`97`	cli_abort("`min_time_value` must be either -Inf or a time_value of the same type and