revert c() inside as.IDate

epinowcast · Jan 4, 2024 · 881431b · 881431b
1 parent dbd88dc
commit 881431b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -199,7 +199,7 @@ enw_example <- function(type = c(
 #' )
 coerce_date <- function(dates) {
   if (is.null(dates)) {
-    return(data.table::as.IDate(c()))
+    return(data.table::as.IDate(numeric()))
   }
   if (length(dates) == 0) {
     return(data.table::as.IDate(dates))