avoid running meta_run in pkgodwn website

Merck · Oct 24, 2023 · 43fa6d6 · 43fa6d6
1 parent 8ac8b51
commit 43fa6d6
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 16 deletions.
diff --git a/R/meta_run.R b/R/meta_run.R
@@ -27,15 +27,17 @@
 #' @export
 #'
 #' @examples
-#' meta <- meta_example()
-#' ae_summary <- function(...) {
-#'   paste("results of", deparse(match.call(), nlines = 1))
+#' if(interactive()){
+#'   meta <- meta_example()
+#'   ae_summary <- function(...) {
+#'     "results of ae_summary"
+#'   }
+#'   ae_specific <- function(...) {
+#'     "results of ae_specific"
+#'   }
+#'   meta_run(meta)
+#'   meta_run(meta, i = 2)
 #' }
-#' ae_specific <- function(...) {
-#'   paste("results of", deparse(match.call(), nlines = 1))
-#' }
-#' meta_run(meta)
-#' meta_run(meta, i = 2)
 meta_run <- function(meta, i = NULL, ...) {
   if (is.null(i)) i <- 1:nrow(meta$plan)
   call <- spec_call_program(meta, ...)

diff --git a/man/meta_run.Rd b/man/meta_run.Rd