Skip to content

Commit

Permalink
revise examples to make run time lower
Browse files Browse the repository at this point in the history
  • Loading branch information
wangben718 committed Jul 17, 2023
1 parent eb5969b commit ca74d40
Show file tree
Hide file tree
Showing 6 changed files with 38 additions and 16 deletions.
8 changes: 5 additions & 3 deletions R/ae_forestly.R
Original file line number Diff line number Diff line change
Expand Up @@ -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) {
Expand Down
8 changes: 5 additions & 3 deletions R/format_ae_forestly.R
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
11 changes: 9 additions & 2 deletions R/prepare_ae_forestly.R
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
8 changes: 5 additions & 3 deletions man/ae_forestly.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

8 changes: 5 additions & 3 deletions man/format_ae_forestly.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

11 changes: 9 additions & 2 deletions man/prepare_ae_forestly.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

0 comments on commit ca74d40

Please sign in to comment.