From 3b3b2a762c16de5546dc7fc57c159ea7b5728937 Mon Sep 17 00:00:00 2001 From: Sebastian Funk Date: Fri, 15 Mar 2024 09:23:31 +0000 Subject: [PATCH] hotfix: simulate_infection checks --- R/simulate_infections.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/simulate_infections.R b/R/simulate_infections.R index c3ec8aaba..c539c0226 100644 --- a/R/simulate_infections.R +++ b/R/simulate_infections.R @@ -75,13 +75,14 @@ simulate_infections <- function(estimates, R, initial_infections, ## check inputs assert_data_frame(R, any.missing = FALSE) - assert_subset(colnames(R), c("date", "R")) + assert_subset(c("date", "R"), colnames(R)) assert_date(R$date) assert_numeric(R$R, lower = 0) assert_numeric(initial_infections, lower = 0) assert_numeric(day_of_week_effect, lower = 0, null.ok = TRUE) assert_numeric(pop, lower = 0) assert_class(delays, "delay_opts") + assert_class(truncation, "trunc_opts") assert_class(obs, "obs_opts") assert_class(generation_time, "generation_time_opts")