From 9d3bafb6378ad0fea613e0fb1ec30a8d42bda7d5 Mon Sep 17 00:00:00 2001 From: Sebastian Funk Date: Tue, 21 May 2024 09:45:16 +0100 Subject: [PATCH] hotfix: deprecations --- R/opts.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/opts.R b/R/opts.R index 11af0a9a3..0d1e52b38 100644 --- a/R/opts.R +++ b/R/opts.R @@ -47,7 +47,7 @@ generation_time_opts <- function(dist = Fixed(1), ..., dot_options <- list(...) if ((length(dot_options) > 0) || - (!missing(disease) && !missing(source)) || + missing(disease) || missing(source) || missing(fixed) || missing(max) || (!is(dist, "dist_spec"))) { stop( "The generation time distribution should be given to ", @@ -174,7 +174,7 @@ secondary_opts <- function(type = c("incidence", "prevalence"), ...) { delay_opts <- function(dist = Fixed(0), ..., fixed = FALSE, tolerance = 0.001, weight_prior = TRUE) { dot_options <- list(...) - if (!is(dist, "dist_spec")) { ## could be old syntax + if (!is(dist, "dist_spec") || !missing(fixed)) { ## could be old syntax stop( "Delay distributions must be of given either using a call to ", "`dist_spec` or one of the `get_...` functions such as ",