Correct .cross_check_vaccination(), WIP #175

epiverse-trace · Mar 11, 2024 · 9e94845 · 9e94845
1 parent 0503135
commit 9e94845
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/tools.R b/R/tools.R
@@ -142,11 +142,12 @@ test_recyclable <- function(x) {
 #' @param doses A single number for the expected number of doses.
 #'
 #' @return Returns `x` after checking that it is suitable for `population`, or
-#' a dummy vaccination regime.
+#' a dummy vaccination regime with `doses` number of doses for each age group.
 #' @keywords internal
 .cross_check_vaccination <- function(x, population, doses) {
+  # no input checking as this is an internal function
   if (is.null(x)) {
-    no_vaccination(population)
+    no_vaccination(population, doses = doses)
   } else {
     assert_vaccination(x, doses = doses, population)
     x

diff --git a/man/dot-cross_check_vaccination.Rd b/man/dot-cross_check_vaccination.Rd