updated list assertion for epidist summary stats

epiverse-trace · Nov 13, 2023 · 2c6b041 · 2c6b041
1 parent 5d601d8
commit 2c6b041
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/epidist.R b/R/epidist.R
@@ -282,8 +282,9 @@ epidist <- function(disease,
   checkmate::assert_list(uncertainty, names = "unique")
   checkmate::assert_list(
     summary_stats,
-    types = c("list", "double", "integer", "logical", "null"),
-    names = "unique"
+    types = c("numeric", "logical"),
+    names = "unique",
+    null.ok = TRUE
   )
   checkmate::assert_class(citation, classes = "bibentry")
   checkmate::assert_list(metadata)