Skip to content

Commit

Permalink
hotfix: deprecations
Browse files Browse the repository at this point in the history
  • Loading branch information
sbfnk committed May 21, 2024
1 parent 2ed8340 commit 63c5215
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/opts.R
Original file line number Diff line number Diff line change
Expand Up @@ -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 ",
Expand Down Expand Up @@ -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 ",
Expand Down

0 comments on commit 63c5215

Please sign in to comment.