Remove n_args check on delay_density, fixes #89

epiverse-trace · Oct 26, 2023 · 08f870a · 08f870a
1 parent 0117f2a
commit 08f870a
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/R/estimate_ascertainment.R b/R/estimate_ascertainment.R
@@ -83,7 +83,7 @@ estimate_ascertainment <- function(data,
     "`delay_density` must be a distribution density function with 1 argument
     evaluating density at a vector of values and returning a numeric vector.
     E.g. function(x) stats::dgamma(x = x, shape = 5, scale = 1)" =
-      checkmate::test_function(delay_density, nargs = 1, null.ok = TRUE)
+      checkmate::test_function(delay_density, null.ok = TRUE)
   )
 
   # match argument for type

diff --git a/R/estimate_rolling.R b/R/estimate_rolling.R
@@ -67,7 +67,7 @@ cfr_rolling <- function(data,
     "`delay_density` must be a distribution density function with 1 argument
     evaluating density at a vector of values and returning a numeric vector.
     E.g. function(x) stats::dgamma(x = x, shape = 5, scale = 1)" =
-      checkmate::test_function(delay_density, nargs = 1, null.ok = TRUE)
+      checkmate::test_function(delay_density, null.ok = TRUE)
   )
   checkmate::assert_count(poisson_threshold)
 

diff --git a/R/estimate_static.R b/R/estimate_static.R
@@ -121,7 +121,7 @@ cfr_static <- function(data,
     "`delay_density` must be a distribution density function with 1 argument
     evaluating density at a vector of values and returning a numeric vector.
     E.g. function(x) stats::dgamma(x = x, shape = 5, scale = 1)" =
-      checkmate::test_function(delay_density, nargs = 1, null.ok = TRUE)
+      checkmate::test_function(delay_density, null.ok = TRUE)
   )
   checkmate::assert_count(poisson_threshold)
 

diff --git a/R/estimate_time_varying.R b/R/estimate_time_varying.R
@@ -111,7 +111,7 @@ cfr_time_varying <- function(data,
     "`delay_density` must be a distribution density function with 1 argument
     evaluating density at a vector of values and returning a numeric vector.
     E.g. function(x) stats::dgamma(x = x, shape = 5, scale = 1)" =
-      checkmate::test_function(delay_density, nargs = 1, null.ok = TRUE)
+      checkmate::test_function(delay_density, null.ok = TRUE)
   )
 
   # prepare a new dataframe with smoothed columns if requested

diff --git a/R/known_outcomes.R b/R/known_outcomes.R
@@ -54,7 +54,7 @@ known_outcomes <- function(data,
     "`delay_density` must be a distribution density function with 1 argument
     evaluating density at a vector of values and returning a numeric vector.
     E.g. function(x) stats::dgamma(x = x, shape = 5, scale = 1)" =
-      checkmate::test_function(delay_density, nargs = 1, null.ok = TRUE)
+      checkmate::test_function(delay_density, null.ok = TRUE)
   )
 
   pmf_vals <- delay_density(seq(from = 0, to = nrow(data) - 1L))