inst/apps/000-manual/app.R

In rstudio/shinycoreci: CI Testing for shiny

# This app is very similar to 000-all, 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_manual)
} 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_manual)
} 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()`."
  )
}