diff --git a/R/summarize_rtestimate.R b/R/summarize_rtestimate.R index 6e11fb9..012cbcd 100644 --- a/R/summarize_rtestimate.R +++ b/R/summarize_rtestimate.R @@ -23,14 +23,14 @@ new_summarize <- function( checkmate::assert_integer(date) checkmate::assert_double(median) checkmate::assert_double(lb) - checkmate::assert_double(up) + checkmate::assert_double(ub) checkmate::assert_string(package) # Checking the length len_date <- length(date) len_median <- length(median) len_lb <- length(lb) - len_up <- length(up) + len_up <- length(ub) if (len_date != len_median || len_date != len_lb || len_date != len_up) { stop("The length of the date, median, lb, and ub should be the same.") } @@ -124,10 +124,10 @@ summarize_rtestimate.epinow <- function(x, level = 0.95, ...) { #' @details The `estimate_R` method is for the `EpiEstim` package. #' @rdname summarize_rtestimate summarize_rtestimate.estimate_R <- function(x, ...) { + if (!requireNamespace("EpiEstim", quietly = TRUE)) { cli::cli_abort("You must install the {.pkg EpiEstim} package for this functionality.") } - checkmate::assert_number(level, lower = 0, upper = 1) new_summarize( date = x$R$t_end, diff --git a/man/new_summarize.Rd b/man/new_summarize.Rd index 78015da..716f653 100644 --- a/man/new_summarize.Rd +++ b/man/new_summarize.Rd @@ -4,7 +4,7 @@ \alias{new_summarize} \title{Create a new summary object} \usage{ -new_summarize(date, median, lb, up, package) +new_summarize(date, median, lb, ub, package) } \arguments{ \item{date}{Integer vector. vector of index dates.} @@ -13,7 +13,7 @@ new_summarize(date, median, lb, up, package) \item{lb}{Double vector. vector of lower bounds.} -\item{up}{Double vector. vector of upper bounds.} +\item{ub}{Double vector. vector of upper bounds.} \item{package}{String. Name of the package.} } @@ -23,7 +23,7 @@ A list of class \code{summrt_summary}. with the following components: \item \code{date}: Integer vector. vector of index dates. \item \code{median}: Double vector. vector of median values. \item \code{lb}: Double vector. vector of lower bounds. -\item \code{up}: Double vector. vector of upper bounds. +\item \code{ub}: Double vector. vector of upper bounds. \item \code{package}: String. Name of the package. } }