Skip to content

Commit

Permalink
chore: replace runApp with shinyApp
Browse files Browse the repository at this point in the history
  • Loading branch information
vedhav committed Nov 17, 2023
1 parent 6c5e8b9 commit 9c504e7
Show file tree
Hide file tree
Showing 8 changed files with 12 additions and 12 deletions.
6 changes: 3 additions & 3 deletions R/data_extract_module.R
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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"))
Expand Down Expand Up @@ -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")
Expand Down
4 changes: 2 additions & 2 deletions R/merge_expression_module.R
Original file line number Diff line number Diff line change
Expand Up @@ -130,7 +130,7 @@
#' }
#' )
#' \dontrun{
#' runApp(app)
#' shinyApp(app$ui, app$server)
#' }
#' @export
merge_expression_module <- function(datasets,
Expand Down Expand Up @@ -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,
Expand Down
2 changes: 1 addition & 1 deletion R/utils.R
Original file line number Diff line number Diff line change
Expand Up @@ -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)) {
Expand Down
2 changes: 1 addition & 1 deletion man/compose_and_enable_validators.Rd

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

2 changes: 1 addition & 1 deletion man/data_extract_multiple_srv.Rd

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

4 changes: 2 additions & 2 deletions man/data_extract_srv.Rd

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

2 changes: 1 addition & 1 deletion man/merge_expression_module.Rd

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

2 changes: 1 addition & 1 deletion man/merge_expression_srv.Rd

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

0 comments on commit 9c504e7

Please sign in to comment.