#' Get health atlas data
#'
#' @return Health atlas data, maps, titles etc.
#' @export
#'
get_data <- function() {
all_data <- list(
"fodsel" = list("data_no" = data::fodsel,
"data_en" = data::fodsel_en,
"year" = "2015\u20132017",
"title_no" = "F\u00f8dselshjelp",
"title_en" = "Obstetrics",
"map" = kart::fodsel),
"gyn" = list("data_no" = data::gyn,
"data_en" = data::gyn_en,
"year" = "2015\u20132017",
"title_no" = "Gynekologi",
"title_en" = "Gynaecology",
"map" = kart::gyn),
"ortopedi" = list("data_no" = data::ortopedi,
"data_en" = data::ortopedi,
"year" = "2012\u20132016",
"title_no" = "Ortopedi",
"title_en" = "Orthopaedic",
"map" = kart::ortopedi),
"dagkir2" = list("data_no" = data::dagkir2,
"data_en" = data::dagkir2_en,
"year" = "2013\u20132017",
"title_no" = "Dagkirurgi",
"title_en" = "Day surgey",
"map" = kart::dagkir2),
"kols" = list("data_no" = data::kols,
"data_en" = data::kols_en,
"year" = "2013\u20132015",
"title_no" = "Kols",
"title_en" = "COPD",
"map" = kart::kols),
"eldre" = list("data_no" = data::eldre,
"data_en" = data::eldre_en,
"year" = "2013\u20132015",
"title_no" = "Eldre",
"title_en" = "Elderly",
"map" = kart::eldre),
"nyfodt" = list("data_no" = data::nyfodt,
"data_en" = data::nyfodt_en,
"year" = "2009\u20132014",
"title_no" = "Nyf\u00f8dt",
"title_en" = "Neonatal",
"map" = kart::nyfodt),
"barn" = list("data_no" = data::barn,
"data_en" = data::barn_en,
"year" = "2011\u20132014",
"title_no" = "Barn",
"title_en" = "Children",
"map" = kart::barn),
"dagir" = list("data_no" = data::dagkir,
"data_en" = data::dagkir_en,
"year" = "2011\u20132013",
"title_no" = "Dagkirurgi",
"title_en" = "Day surgey",
"map" = kart::dagkir)
)
return(all_data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.