Example will only launch Shiny app in interactive mode

Author: HenrikBengtsson

R/utils.R

@@ -101,7 +101,7 @@ is_fake <- local({
 
 known_progression_handlers <- function(exclude = NULL) {
   ns <- asNamespace(.packageName)
-  handlers <- ls(envir = ns, pattern = "_handler$")
+  handlers <- ls(envir = ns, pattern = "^handler_")
   handlers <- setdiff(handlers, c("make_progression_handler", "print.progression_handler"))
   handlers <- setdiff(handlers, exclude)
   handlers <- mget(handlers, envir = ns, inherits = FALSE)

incl/withProgressShiny.R

@@ -30,7 +30,5 @@ app <- shinyApp(
 local({
   oopts <- options(device.ask.default = FALSE)
   on.exit(options(oopts))
-  \donttest{
-  print(app)
-  }
+  if (interactive()) print(app)
 })