diff --git a/R/app.R b/R/app.R index bab66c4..124b2bd 100644 --- a/R/app.R +++ b/R/app.R @@ -23,7 +23,6 @@ epiworldR_env <- new.env() #' This function is for internal use only. #' #' @return Returns the `epiworldR_env` environment. - #' @export epiworldRenv <- function() { epiworldR_env diff --git a/R/functions-server.R b/R/functions-server.R index 60beb6b..7a80923 100644 --- a/R/functions-server.R +++ b/R/functions-server.R @@ -13,7 +13,6 @@ #' #' @return A matrix representing the generated population, with columns for age #' groups (0-19, 20-59, 60+), NotHispanic, and Female. - #' @examples #' pop_generator(n = 10000, prop_hispanic = .5, prop_female = .5, #' prop_19_59_60plus = c(.3, .6)) @@ -62,7 +61,6 @@ pop_generator <- function( #' @return An integer representing the scale for the y-axis. A max counts value #' of 10000 will return a scale of 1, 100000 will return a scale of 1000, #' 1000000 will return a scale of 10000. - #' @examples #' find_scale(100000) #' @@ -82,7 +80,6 @@ find_scale <- function(x) { #' #' @return A plot displaying each state from the model over the course of the #' simulation - #' @examples #' library(epiworldR) # for ModelSEIRCONN function #' model <- ModelSEIRCONN("COVID-19", n = 1000, prevalence = 0.05, @@ -241,7 +238,6 @@ plot_epi <- function(model, mark_max) { #' #' @return A plot displaying the reproductive number for the model over the #' course of the simulation - #' @examples #' library(epiworldR) # for ModelSEIRCONN function #' model <- ModelSEIRCONN("COVID-19", n = 1000, prevalence = 0.05, diff --git a/R/functions-ui.R b/R/functions-ui.R index 412f777..5ddb888 100644 --- a/R/functions-ui.R +++ b/R/functions-ui.R @@ -8,7 +8,6 @@ #' @return #' - Unless otherwise specified, returns an object of class shiny.tag. #' @name epiworldrshiny-ui - #' @examples #' text_input_disease_name("SEIRD") text_input_disease_name <- function(model_name) {