R/get_data.r

In Helseatlas/shinymap: R-package to produce shiny maps of Norway

#' 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)
}