Fix min_wait > 0 bug in pev_epi

R/pev.R

@@ -32,7 +32,7 @@ create_epi_pev_process <- function(
     if (parameters$pev_epi_min_wait == 0) {
       target <- to_vaccinate$to_vector()
     } else {
-      not_recently_vaccinated <- variables$vaccinated_timestep$get_index_of(
+      not_recently_vaccinated <- variables$pev_timestep$get_index_of(
         a = max(timestep - parameters$pev_epi_min_wait, 0),
         b = timestep
       )$not(TRUE)

R/pev_parameters.R

@@ -65,7 +65,8 @@ rtss_booster_profile <- create_pev_profile(
 #' @param profile primary vaccine profile of type PEVProfile
 #' @param coverages a vector of coverages for the primary doses
 #' @param timesteps a vector of timesteps associated with coverages
-#' @param age for the target population, (in timesteps)
+#' @param age the age when an individual will receive the first dose of the
+#' vaccine (in timesteps)
 #' @param min_wait the minimum acceptable time since the last vaccination (in
 #' timesteps); When seasonal_boosters = TRUE, this represents the minimum time
 #' between an individual receiving the final dose and the first booster. When using

tests/testthat/test-pev-epi.R

@@ -86,7 +86,7 @@ test_that('pev epi targets correct age and respects min_wait', {
   variables$birth <- individual::IntegerVariable$new(
     -c(18, 18, 2.9, 18, 18) * 365 + timestep
   )
-  variables$vaccinated_timestep <- mock_integer(
+  variables$pev_timestep <- mock_integer(
     c(50, -1, -1, 4*365, -1)
   )