diff --git a/R/create.R b/R/create.R index 1d9f66113..faaf8d29d 100644 --- a/R/create.R +++ b/R/create.R @@ -156,7 +156,6 @@ create_shifted_cases <- function(reported_cases, shift, #' time. #' #' @param delay Numeric mean delay -#' #' @importFrom rlang arg_match #' @return A list containing a logical called fixed and an integer called from #' @author Sam Abbott diff --git a/R/opts.R b/R/opts.R index 46fed5427..d12c0ab5b 100644 --- a/R/opts.R +++ b/R/opts.R @@ -306,7 +306,6 @@ rt_opts <- function(prior = list(mean = 1, sd = 1), #' @param rt_window Integer, defaults to 1. The size of the centred rolling #' average to use when estimating Rt. This must be odd so that the central #' estimate is included. -#' #' @importFrom rlang arg_match #' #' @return A list of back calculation settings. @@ -374,7 +373,6 @@ backcalc_opts <- function(prior = "reports", prior_window = 14, rt_window = 1) { #' ) for advice on updating this default. #' #' @importFrom rlang arg_match -#' #' @return A list of settings defining the Gaussian process #' @author Sam Abbott #' @export @@ -443,7 +441,6 @@ gp_opts <- function(basis_prop = 0.2, #' be returned by the model. #' #' @importFrom rlang arg_match -#' #' @return A list of observation model settings. #' @author Sam Abbott #' @export @@ -611,7 +608,6 @@ rstan_vb_opts <- function(samples = 2000, #' @param ... Additional parameters to pass underlying option functions. #' #' @importFrom rlang arg_match -#' #' @return A list of arguments to pass to the appropriate rstan functions. #' @author Sam Abbott #' @export diff --git a/R/plot.R b/R/plot.R index d0ef892b4..52269ad30 100644 --- a/R/plot.R +++ b/R/plot.R @@ -375,7 +375,6 @@ plot_summary <- function(summary_results, #' "R", "growth_rate", "summary", "all". #' #' @param ... Pass additional arguments to report_plots -#' #' @importFrom rlang arg_match #' #' @seealso plot report_plots estimate_infections diff --git a/R/summarise.R b/R/summarise.R index cb9fdfbf0..75883150e 100644 --- a/R/summarise.R +++ b/R/summarise.R @@ -794,7 +794,6 @@ summary.epinow <- function(object, output = "estimates", #' @param params A character vector of parameters to filter for. #' #' @param ... Pass additional arguments to `report_summary` -#' #' @importFrom rlang arg_match #' @seealso summary estimate_infections report_summary #' @method summary estimate_infections