R/utils.R

In oc1lojo/nkbcind: Verktyg för kvalitetsindikatorer och populationskarakteristik från NKBC

#' @noRd
get_meny <- function(x, locale = "sv", ...) {
  meny_sv_kortnamn <- strsplit(kortnamn(x), "_")[[1]][2]
  meny_sv <- dplyr::case_when(
    meny_sv_kortnamn == "tackning" ~ "Täckningsgrader",
    meny_sv_kortnamn == "pop" ~ "Population",
    meny_sv_kortnamn == "ledtid" ~ "Ledtider",
    meny_sv_kortnamn == "diag" ~ "Diagnostik",
    meny_sv_kortnamn == "omv" ~ "Omvårdnad",
    meny_sv_kortnamn == "primbeh" ~ "Primär behandling",
    meny_sv_kortnamn == "kir" ~ "Kirurgi",
    meny_sv_kortnamn == "onk" ~ "Onkologisk behandling",
    meny_sv_kortnamn == "overlevnad" ~ "Överlevnad"
  )
  meny_en <- dplyr::case_when(
    meny_sv_kortnamn == "tackning" ~ "Coverage",
    meny_sv_kortnamn == "pop" ~ "Population",
    meny_sv_kortnamn == "ledtid" ~ "Lead times",
    meny_sv_kortnamn == "diag" ~ "Diagnostics",
    meny_sv_kortnamn == "omv" ~ "Nursing",
    meny_sv_kortnamn == "primbeh" ~ "Primary treatment",
    meny_sv_kortnamn == "kir" ~ "Surgery",
    meny_sv_kortnamn == "onk" ~ "Oncological treatment",
    meny_sv_kortnamn == "overlevnad" ~ "Survival"
  )
  meny <- c("sv" = meny_sv, "en" = meny_en)

  return(meny[locale])
}