diff --git a/R/ae_forestly.R b/R/ae_forestly.R index 5a60f58..6be143f 100644 --- a/R/ae_forestly.R +++ b/R/ae_forestly.R @@ -27,13 +27,15 @@ #' @export #' #' @examples +#' adsl <- forestly_adsl[1:100,] +#' adae <- forestly_adae[1:100,] #' meta_forestly( -#' dataset_adsl = forestly_adsl, -#' dataset_adae = forestly_adae, +#' dataset_adsl = adsl, +#' dataset_adae = adae, #' population_term = "apat", #' observation_term = "wk12" #' ) |> -#' prepare_ae_forestly(parameter = "any;rel;ser") |> +#' prepare_ae_forestly(parameter = "any;rel") |> #' format_ae_forestly() |> #' ae_forestly() ae_forestly <- function(outdata, filter = c("prop", "n"), width = 1400) { diff --git a/R/format_ae_forestly.R b/R/format_ae_forestly.R index 6508429..528fdfa 100644 --- a/R/format_ae_forestly.R +++ b/R/format_ae_forestly.R @@ -42,13 +42,15 @@ #' @export #' #' @examples +#' adsl <- forestly_adsl[1:100,] +#' adae <- forestly_adae[1:100,] #' meta_forestly( -#' dataset_adsl = forestly_adsl, -#' dataset_adae = forestly_adae, +#' dataset_adsl = adsl, +#' dataset_adae = adae, #' population_term = "apat", #' observation_term = "wk12" #' ) |> -#' prepare_ae_forestly(parameter = "any;rel;ser") |> +#' prepare_ae_forestly(parameter = "any;rel")|> #' format_ae_forestly() format_ae_forestly <- function( outdata, diff --git a/R/prepare_ae_forestly.R b/R/prepare_ae_forestly.R index 43b73c7..96d2fd5 100644 --- a/R/prepare_ae_forestly.R +++ b/R/prepare_ae_forestly.R @@ -27,8 +27,15 @@ #' @export #' #' @examples -#' meta <- metalite.ae::meta_ae_example() -#' prepare_ae_forestly(meta, "apat", "wk12", "any;rel") +#' adsl <- forestly_adsl[1:100,] +#' adae <- forestly_adae[1:100,] +#' meta_forestly( +#' dataset_adsl = adsl, +#' dataset_adae = adae, +#' population_term = "apat", +#' observation_term = "wk12" +#' ) |> +#' prepare_ae_forestly(parameter = "any;rel") prepare_ae_forestly <- function( meta, population = NULL, diff --git a/man/ae_forestly.Rd b/man/ae_forestly.Rd index 21bf7d5..6e78ff1 100644 --- a/man/ae_forestly.Rd +++ b/man/ae_forestly.Rd @@ -20,13 +20,15 @@ An AE forest plot saved as a \code{shiny.tag.list} object. Display interactive forest plot } \examples{ +adsl <- forestly_adsl[1:100,] +adae <- forestly_adae[1:100,] meta_forestly( - dataset_adsl = forestly_adsl, - dataset_adae = forestly_adae, + dataset_adsl = adsl, + dataset_adae = adae, population_term = "apat", observation_term = "wk12" ) |> - prepare_ae_forestly(parameter = "any;rel;ser") |> + prepare_ae_forestly(parameter = "any;rel") |> format_ae_forestly() |> ae_forestly() } diff --git a/man/format_ae_forestly.Rd b/man/format_ae_forestly.Rd index 66dcab1..7c4d442 100644 --- a/man/format_ae_forestly.Rd +++ b/man/format_ae_forestly.Rd @@ -59,12 +59,14 @@ An \code{outdata} object. Format outdata for interactive forest plot } \examples{ +adsl <- forestly_adsl[1:100,] +adae <- forestly_adae[1:100,] meta_forestly( - dataset_adsl = forestly_adsl, - dataset_adae = forestly_adae, + dataset_adsl = adsl, + dataset_adae = adae, population_term = "apat", observation_term = "wk12" ) |> - prepare_ae_forestly(parameter = "any;rel;ser") |> + prepare_ae_forestly(parameter = "any;rel")|> format_ae_forestly() } diff --git a/man/prepare_ae_forestly.Rd b/man/prepare_ae_forestly.Rd index fad3068..64392d7 100644 --- a/man/prepare_ae_forestly.Rd +++ b/man/prepare_ae_forestly.Rd @@ -39,6 +39,13 @@ An \code{outdata} object. Prepare datasets for interactive forest plot } \examples{ -meta <- metalite.ae::meta_ae_example() -prepare_ae_forestly(meta, "apat", "wk12", "any;rel") +adsl <- forestly_adsl[1:100,] +adae <- forestly_adae[1:100,] +meta_forestly( + dataset_adsl = adsl, + dataset_adae = adae, + population_term = "apat", + observation_term = "wk12" +) |> + prepare_ae_forestly(parameter = "any;rel") }