tests/scripts/deploy.R

In SKDE-Felles/SKDEresultater: R-package to produce shiny SKDE portal

install.packages("remotes")

remotes::install_github("mong/SKDEresultater", ref = Sys.getenv("TRAVIS_BRANCH"))

rsconnect::setAccountInfo(name   = Sys.getenv("shinyapps_name"),
                          token  = Sys.getenv("shinyapps_token"),
                          secret = Sys.getenv("shinyapps_secret")
                          )

if (Sys.getenv("TRAVIS_BRANCH") == "master") {
  app_name <- "SKDEresultater"
} else {
  app_name <- "exp_SKDEresultater"
}

SKDEresultater::launch_app(
  dataset = SKDEresultater::testdata,
  publish_app = TRUE,
  name = app_name
)