From 9e948459559f61a0c269721f2853b04cb8ca3471 Mon Sep 17 00:00:00 2001
From: pratikunterwegs <pratikgupte16@gmail.com>
Date: Tue, 13 Feb 2024 16:13:46 +0000
Subject: [PATCH] Correct .cross_check_vaccination(), WIP #175

---
 R/tools.R                          | 5 +++--
 man/dot-cross_check_vaccination.Rd | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/R/tools.R b/R/tools.R
index 520887c0..6f941b46 100644
--- 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
index 88065824..402be93a 100644
--- a/man/dot-cross_check_vaccination.Rd
+++ b/man/dot-cross_check_vaccination.Rd
@@ -15,7 +15,7 @@
 }
 \value{
 Returns \code{x} after checking that it is suitable for \code{population}, or
-a dummy vaccination regime.
+a dummy vaccination regime with \code{doses} number of doses for each age group.
 }
 \description{
 Cross-check a \verb{<vaccination>}