inst/apps/000-all/app.R

In rstudio/shinycoreci: CI Testing for shiny

# library(shiny)

# ui <- fluidPage(
#   verbatimTextOutput("txt", placeholder = TRUE)
# )
# server <- function(input, output) {
#   output$txt <- renderText({
#     paste0(system("printenv", intern = TRUE), collapse = "\n")
#   })
# }

# shinyApp(ui, server)

# This app is very similar to 000-manual, any changes here should be made there
if (grepl(
  attr(shinycoreci:::default_connect_urls, "server"),
  Sys.getenv("CONNECT_SERVER", "not-found"),
  fixed = TRUE
)) {
  message("On Connect!")
  shinycoreci:::test_in_connect_app(app_name = "001-hello", apps = shinycoreci:::apps_deploy)
} else if (grepl("shinyapps", Sys.getenv("R_CONFIG_ACTIVE", "not-found"))) {
  message("On shinyapps.io!")
  shinycoreci:::test_in_shinyappsio_app(app_name = "001-hello", apps = shinycoreci:::apps_deploy)
} else {
  stop(
    "Interactive environment.\n",
    "If in the IDE, please run `shinycoreci::test_in_ide()` to run each app individually.\n",
    "If wanting to test in the browser, please run `shinycoreci::test_in_browser()`."
  )
}