install.packages("remotes")
remotes::install_github("helseatlas/kart")
remotes::install_github("helseatlas/data")
remotes::install_github("helseatlas/helseatlas", ref = Sys.getenv("TRAVIS_BRANCH"))
# All atlas data and maps
all_data <- list(
"fodsel" = list("data_no" = data::fodsel,
"data_en" = data::fodsel_en,
"year" = "2015–2017",
"title_no" = "Fødselshjelp",
"title_en" = "Obstetrics",
"map" = kart::fodsel),
"gyn" = list("data_no" = data::gyn,
"data_en" = data::gyn_en,
"year" = "2015–2017",
"title_no" = "Gynekologi",
"title_en" = "Gynaecology",
"map" = kart::gyn),
"ortopedi" = list("data_no" = data::ortopedi,
"data_en" = data::ortopedi,
"year" = "2012–2016",
"title_no" = "Ortopedi",
"title_en" = "Orthopaedic",
"map" = kart::gyn),
"dagkir2" = list("data_no" = data::dagkir2,
"data_en" = data::dagkir2_en,
"year" = "2013–2017",
"title_no" = "Dagkirurgi",
"title_en" = "Day surgey",
"map" = kart::dagkir2),
"kols" = list("data_no" = data::kols,
"data_en" = data::kols_en,
"year" = "2013–2015",
"title_no" = "Kols",
"title_en" = "COPD",
"map" = kart::kols),
"eldre" = list("data_no" = data::eldre,
"data_en" = data::eldre_en,
"year" = "2013–2015",
"title_no" = "Eldre",
"title_en" = "Elderly",
"map" = kart::eldre),
"nyfodt" = list("data_no" = data::nyfodt,
"data_en" = data::nyfodt_en,
"year" = "2009–2014",
"title_no" = "Nyfødt",
"title_en" = "Neonatal",
"map" = kart::nyfodt),
"barn" = list("data_no" = data::barn,
"data_en" = data::barn_en,
"year" = "2011–2014",
"title_no" = "Barn",
"title_en" = "Children",
"map" = kart::barn),
"dagir" = list("data_no" = data::dagkir,
"data_en" = data::dagkir_en,
"year" = "2011–2013",
"title_no" = "Dagkirurgi",
"title_en" = "Day surgey",
"map" = kart::dagkir)
)
rsconnect::setAccountInfo(name = Sys.getenv("shinyapps_name"),
token = Sys.getenv("shinyapps_token"),
secret = Sys.getenv("shinyapps_secret")
)
git_hash <- Sys.getenv("TRAVIS_COMMIT")
github_account <- Sys.getenv("TRAVIS_REPO_SLUG")
if (Sys.getenv("TRAVIS_BRANCH") == "master") {
helseatlas::launch_app(
dataset = all_data,
publish_app = TRUE,
name = "helseatlas",
git_hash = git_hash,
github_repo = github_account
)
} else {
helseatlas::launch_app(
dataset = all_data,
publish_app = TRUE,
name = "experimental",
git_hash = git_hash,
github_repo = github_account
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.