diff --git a/R/data_extract_module.R b/R/data_extract_module.R index 33434648..87f2646a 100644 --- a/R/data_extract_module.R +++ b/R/data_extract_module.R @@ -346,7 +346,7 @@ check_data_extract_spec_react <- function(datasets, data_extract) { #' } #' ) #' if (interactive()) { -#' runApp(app) +#' shinyApp(app$ui, app$server) #' } #' #' # Using FilteredData - Note this method will be deprecated @@ -381,7 +381,7 @@ check_data_extract_spec_react <- function(datasets, data_extract) { #' } #' ) #' if (interactive()) { -#' runApp(app) +#' shinyApp(app$ui, app$server) #' } data_extract_srv <- function(id, datasets, data_extract_spec, ...) { checkmate::assert_multi_class(datasets, c("FilteredData", "list")) @@ -651,7 +651,7 @@ data_extract_srv.list <- function(id, datasets, data_extract_spec, join_keys = N #' } #' ) #' if (interactive()) { -#' runApp(app) +#' shinyApp(app$ui, app$server) #' } data_extract_multiple_srv <- function(data_extract, datasets, ...) { checkmate::assert_list(data_extract, names = "named") diff --git a/R/merge_expression_module.R b/R/merge_expression_module.R index 7dd518f0..daf5f295 100644 --- a/R/merge_expression_module.R +++ b/R/merge_expression_module.R @@ -130,7 +130,7 @@ #' } #' ) #' \dontrun{ -#' runApp(app) +#' shinyApp(app$ui, app$server) #' } #' @export merge_expression_module <- function(datasets, @@ -303,7 +303,7 @@ merge_expression_module <- function(datasets, #' } #' ) #' \dontrun{ -#' runApp(app) +#' shinyApp(app$ui, app$server) #' } merge_expression_srv <- function(id = "merge_id", selector_list, diff --git a/R/utils.R b/R/utils.R index 13d26fc2..67495a91 100644 --- a/R/utils.R +++ b/R/utils.R @@ -139,7 +139,7 @@ extract_choices_labels <- function(choices, values = NULL) { #' } #' ) #' if (interactive()) { -#' runApp(app) +#' shinyApp(app$ui, app$server) #' } compose_and_enable_validators <- function(iv, selector_list, validator_names = NULL) { if (is.null(validator_names)) { diff --git a/man/compose_and_enable_validators.Rd b/man/compose_and_enable_validators.Rd index ac90e657..cddce526 100644 --- a/man/compose_and_enable_validators.Rd +++ b/man/compose_and_enable_validators.Rd @@ -109,6 +109,6 @@ app <- shinyApp( } ) if (interactive()) { - runApp(app) + shinyApp(app$ui, app$server) } } diff --git a/man/data_extract_multiple_srv.Rd b/man/data_extract_multiple_srv.Rd index fe52d972..0e7e679a 100644 --- a/man/data_extract_multiple_srv.Rd +++ b/man/data_extract_multiple_srv.Rd @@ -152,6 +152,6 @@ app <- shinyApp( } ) if (interactive()) { - runApp(app) + shinyApp(app$ui, app$server) } } diff --git a/man/data_extract_srv.Rd b/man/data_extract_srv.Rd index 376d1264..75d228ee 100644 --- a/man/data_extract_srv.Rd +++ b/man/data_extract_srv.Rd @@ -144,7 +144,7 @@ app <- shinyApp( } ) if (interactive()) { - runApp(app) + shinyApp(app$ui, app$server) } # Using FilteredData - Note this method will be deprecated @@ -179,7 +179,7 @@ app <- shinyApp( } ) if (interactive()) { - runApp(app) + shinyApp(app$ui, app$server) } } \references{ diff --git a/man/merge_expression_module.Rd b/man/merge_expression_module.Rd index 799e06b2..b452b401 100644 --- a/man/merge_expression_module.Rd +++ b/man/merge_expression_module.Rd @@ -152,7 +152,7 @@ app <- shinyApp( } ) \dontrun{ -runApp(app) +shinyApp(app$ui, app$server) } } \seealso{ diff --git a/man/merge_expression_srv.Rd b/man/merge_expression_srv.Rd index 7b7c10be..27dce5f3 100644 --- a/man/merge_expression_srv.Rd +++ b/man/merge_expression_srv.Rd @@ -161,7 +161,7 @@ app <- shinyApp( } ) \dontrun{ -runApp(app) +shinyApp(app$ui, app$server) } } \seealso{