Deprecate adjust_infection_to_report(), report_cases(), and sample_approx_dist()

NEWS.md

@@ -10,6 +10,7 @@
 * A new `simulate_infections` function has been added that can be used to simulate from the model from given initial conditions and parameters. By @sbfnk in #557 and reviewed by @jamesmbaazam.
 * The function `init_cumulative_fit()` has been deprecated. By @jamesmbaazam in #541 and reviewed by @sbfnk.
 * The interface to generating delay distributions has been completely overhauled. Instead of calling `dist_spec()` users now specify distributions using functions that represent the available distributions, i.e. `LogNormal()`, `Gamma()` and `Fixed()`. Uncertainty is specified using calls of the same nature, to `Normal()`. More information on the underlying design can be found in `inst/dev/design_dist.md` By @sbfnk in #504 and reviewed by @seabbs.
+* The functions `sample_approx_dist()`, `report_cases()`, and `adjust_infection_reports()` have been deprecated as the functionality they provide can now be achieved with `simulate_secondary()`. See #597 by @jamesmbaazam and reviewed by @sbfnk.
 
 ## Documentation
 

R/adjust.R

@@ -1,6 +1,6 @@
 #' Adjust from Case Counts by Infection Date to Date of Report
 #'
-#' @description  `r lifecycle::badge("stable")`
+#' @description  `r lifecycle::badge("deprecated")`
 #' Maps from cases by date of infection to date of report via date of
 #' onset.
 #' @param infections `<data.table>` containing a `date` variable and a numeric
@@ -25,63 +25,59 @@
 #' @inheritParams sample_approx_dist
 #' @importFrom data.table setorder data.table data.table
 #' @importFrom lubridate wday
+#' @importFrom lifecycle deprecate_warn
 #' @examples
 #' \donttest{
-#' # define example cases
-#' cases <- data.table::copy(example_confirmed)[, cases := as.integer(confirm)]
+#' # This function is deprecated and its functionality can now be accessed
+#' # from [simulate_secondary()].
+#' # Here are some examples of how to use [simulate_secondary()] to replace
+#' # adjust_infection_to_report().
 #'
-#' # define a single report delay distribution
+#' # Old (using adjust_infection_to_report()):
+#' # Define example case data
+#' cases <- data.table::copy(example_confirmed)
+#' cases <- cases[, cases := as.integer(confirm)]
+#' # Define a simple reporting delay distribution
 #' delay_def <- lognorm_dist_def(
-#'   mean = 5, mean_sd = 1, sd = 3, sd_sd = 1,
-#'   max_value = 30, samples = 1, to_log = TRUE
-#' )
-#'
-#' # define a single incubation period
-#' incubation_def <- lognorm_dist_def(
-#'   mean = incubation_periods[1, ]$mean,
-#'   mean_sd = incubation_periods[1, ]$mean_sd,
-#'   sd = incubation_periods[1, ]$sd,
-#'   sd_sd = incubation_periods[1, ]$sd_sd,
-#'   max_value = 30, samples = 1
+#'  mean = 5, mean_sd = 1, sd = 3, sd_sd = 1,
+#'  max_value = 30, samples = 1, to_log = TRUE
 #' )
-#'
-#' # simple mapping
 #' report <- adjust_infection_to_report(
-#'  cases, delay_defs = list(incubation_def, delay_def)
+#'  cases,
+#'  delay_defs = list(delay_def),
+#'  reporting_model = function(n) rpois(length(n), n)
 #' )
 #' print(report)
 #'
-#' # mapping with a weekly reporting effect
-#' report_weekly <- adjust_infection_to_report(
-#'   cases,
-#'   delay_defs = list(incubation_def, delay_def),
-#'   reporting_effect = c(1.1, rep(1, 4), 0.95, 0.95)
+#' # New (using simulate_secondary()):
+#' cases <- data.table::copy(example_confirmed)
+#' cases <- cases[, primary := as.integer(confirm)]
+#' uncertain_delay <- LogNormal(
+#'  mean = Normal(5, 1), sd = Normal(3, 1),
+#'  max = 30
 #' )
-#' print(report_weekly)
-#'
-#' # map using a deterministic median shift for both delays
-#' report_median <- adjust_infection_to_report(cases,
-#'   delay_defs = list(incubation_def, delay_def),
-#'   type = "median"
+#' delay <- fix_dist(uncertain_delay, strategy = "sample")
+#' report <- simulate_secondary(
+#'  cases,
+#'  delays = delay_opts(delay),
+#'  obs = obs_opts(family = "poisson")
 #' )
-#' print(report_median)
-#'
-#' # map with a weekly reporting effect and stochastic reporting model
-#' report_stochastic <- adjust_infection_to_report(
-#'   cases,
-#'   delay_defs = list(incubation_def, delay_def),
-#'   reporting_effect = c(1.1, rep(1, 4), 0.95, 0.95),
-#'   reporting_model = function(n) {
-#'     out <- suppressWarnings(rnbinom(length(n), as.integer(n), 0.5))
-#'     out <- ifelse(is.na(out), 0, out)
-#'   }
-#' )
-#' print(report_stochastic)
+#' print(report)
 #' }
 adjust_infection_to_report <- function(infections, delay_defs,
                                        reporting_model, reporting_effect,
                                        type = "sample",
                                        truncate_future = TRUE) {
+  deprecate_warn(
+    when = "1.5.0",
+    what = "adjust_infection_to_report()",
+    with = "simulate_secondary()",
+    details = c(
+      "See equivalent examples using `simulate_secondary()`",
+      "in ?adjust_infection_to_report.",
+      "This function will be removed completely in version 2.0.0."
+    )
+  )
   # Reset DT Defaults on Exit
   set_dt_single_thread()
 
@@ -100,14 +96,14 @@ adjust_infection_to_report <- function(infections, delay_defs,
 
 
     ## Infection to onset
-    out <- EpiNow2::sample_approx_dist(
+    out <- suppressWarnings(EpiNow2::sample_approx_dist(
       cases = input,
       dist_fn = sample_delay_fn,
       max_value = delay_def$max_value,
       direction = "forwards",
       type = type,
       truncate_future = FALSE
-    )
+    ))
 
     return(out)
   }
@@ -124,14 +120,14 @@ adjust_infection_to_report <- function(infections, delay_defs,
     }
 
     ## Infection to onset
-    out <- EpiNow2::sample_approx_dist(
+    out <- suppressWarnings(EpiNow2::sample_approx_dist(
       cases = input,
       dist_fn = sample_delay_fn,
       max_value = max(delay_def),
       direction = "forwards",
       type = type,
       truncate_future = FALSE
-    )
+    ))
 
     return(out)
   }
@@ -186,7 +182,7 @@ adjust_infection_to_report <- function(infections, delay_defs,
 
 #' Approximate Sampling a Distribution using Counts
 #'
-#' @description `r lifecycle::badge("soft-deprecated")`
+#' @description `r lifecycle::badge("deprecated")`
 #' Convolves cases by a PMF function. This function will soon be removed or
 #' replaced with a more robust stan implementation.
 #'
@@ -218,6 +214,7 @@ adjust_infection_to_report <- function(infections, delay_defs,
 #' @importFrom purrr map_dfc
 #' @importFrom data.table data.table setorder
 #' @importFrom lubridate days
+#' @importFrom lifecycle deprecate_warn
 #' @examples
 #' \donttest{
 #' cases <- example_confirmed
@@ -279,6 +276,11 @@ sample_approx_dist <- function(cases = NULL,
                                direction = "backwards",
                                type = "sample",
                                truncate_future = TRUE) {
+  deprecate_warn(
+    "1.5.0",
+    "sample_approx_dist()",
+    details = "The function will be removed completely in version 2.0.0."
+  )
   if (type == "sample") {
     if (direction == "backwards") {
       direction_fn <- rev

R/report.R

@@ -1,6 +1,6 @@
 #' Report case counts by date of report
 #'
-#' @description `r lifecycle::badge("soft-deprecated")`
+#' @description `r lifecycle::badge("deprecated")`
 #' Convolves latent infections to reported cases via an observation model.
 #' Likely to be removed/replaced in later releases by functionality drawing on
 #' the `stan` implementation.
@@ -27,30 +27,53 @@
 #' @inheritParams adjust_infection_to_report
 #' @importFrom data.table data.table rbindlist
 #' @importFrom future.apply future_lapply
+#' @importFrom lifecycle deprecate_warn
 #' @examples
 #' \donttest{
-#' # define example cases
+#' # This function is deprecated and its functionality can now be accessed
+#' # from [simulate_secondary()].
+#' # Here are some examples of how to use [simulate_secondary()] to replace
+#' # report_cases().
+#' # Old (using report_cases()):
+#' # Define case data
 #' cases <- example_confirmed[1:40]
-#'
-#' # get example delays
-#' # Instead of running them model we use example
-#' # data for speed in this example.
 #' cases <- cases[, cases := as.integer(confirm)]
 #' cases <- cases[, confirm := NULL][, sample := 1]
-#'
 #' reported_cases <- report_cases(
-#'   case_estimates = cases,
-#'   delays = delay_opts(example_incubation_period + example_reporting_delay),
-#'   type = "sample"
+#'  case_estimates = cases,
+#'  delays = delay_opts(example_incubation_period + example_reporting_delay),
+#'  type = "sample"
 #' )
-#' print(reported_cases)
+#' print(reported_cases$samples)
+#'
+#' # New (using simulate_secondary()):
+#' cases <- example_confirmed[1:40]
+#' cases <- cases[, primary := as.integer(confirm)]
+#' report <- simulate_secondary(
+#'  cases,
+#'  delays = delay_opts(
+#'    fix_dist(example_incubation_period + example_reporting_delay)
+#'  ),
+#'  obs = obs_opts(family = "poisson")
+#' )
+#' print(report)
 #' }
 report_cases <- function(case_estimates,
                          case_forecast = NULL,
                          delays,
                          type = "sample",
                          reporting_effect,
                          CrIs = c(0.2, 0.5, 0.9)) {
+  deprecate_warn(
+    when = "1.5.0",
+    what = "report_cases()",
+    with = "simulate_secondary()",
+    details = c(
+      "See equivalent examples using `simulate_secondary()`",
+      "in ?report_cases.",
+      "This function will be removed completely in version 2.0.0."
+    )
+  )
   samples <- length(unique(case_estimates$sample))
 
   # add a null reporting effect if missing