data-raw/create_aggr_data.R

In SKDE-Felles/qmongr: Lightweight Quality Assessment of Norwegian Hospitals

# Create app_data beforehand, to speed up app.

config <- qmongr::get_config()
aggr_data <- qmongrdata:::app_data(config)
usethis::use_data(aggr_data, overwrite = TRUE)


## Renamed columns Aug. 21 2020

aggr_data <- qmongr::aggr_data
aggr_data$register_data$description <- aggr_data$register_data$description
aggr_data$register_data$description <- aggr_data$register_data$description %>%
  dplyr::rename(id = IndID)
aggr_data$register_data$description <- aggr_data$register_data$description %>%
  dplyr::rename(registry_id = Register, title = IndTittel, name = IndNavn,
                level_green = MaalNivaaGronn, level_yellow = MaalNivaaGul)
aggr_data$register_data$description <- aggr_data$register_data$description %>%
  dplyr::rename(short_description = BeskrivelseKort, long_description = BeskrivelseLang)
aggr_data$register_data$description <- aggr_data$register_data$description %>%
  dplyr::rename(level_direction = MaalRetn)
aggr_data$grouped_by_hospital <- aggr_data$grouped_by_hospital %>%
  dplyr::rename(year = Aar, ind_id = KvalIndID, denominator = count,
                unit_name = SykehusNavn, orgnr = OrgNrShus, var = indicator)
aggr_data$grouped_by_hf <- aggr_data$grouped_by_hf %>%
  dplyr::rename(year = Aar, ind_id = KvalIndID, denominator = count,
                unit_name = Hfkortnavn, orgnr = OrgNrHF, var = indicator)
aggr_data$grouped_by_rhf <- aggr_data$grouped_by_rhf %>%
  dplyr::rename(year = Aar, ind_id = KvalIndID, denominator = count,
                unit_name = RHF, orgnr = OrgNrRHF, var = indicator)
aggr_data$national_data <- aggr_data$national_data %>%
  dplyr::rename(year = Aar, ind_id = KvalIndID, denominator = count, var = indicator)

aggr_data$grouped_by_hospital <- aggr_data$grouped_by_hospital %>%
  dplyr::mutate(desired_level = dplyr::case_when(desired_level == "Høyt" ~ 1,
                                                 desired_level == "Lavt" ~ 0)) %>%
  dplyr::rename(level_direction = desired_level)

aggr_data$grouped_by_hf <- aggr_data$grouped_by_hf %>%
  dplyr::mutate(desired_level = dplyr::case_when(desired_level == "Høyt" ~ 1,
                                                 desired_level == "Lavt" ~ 0)) %>%
  dplyr::rename(level_direction = desired_level)

aggr_data$grouped_by_rhf <- aggr_data$grouped_by_rhf %>%
  dplyr::mutate(desired_level = dplyr::case_when(desired_level == "Høyt" ~ 1,
                                                 desired_level == "Lavt" ~ 0)) %>%
  dplyr::rename(level_direction = desired_level)

aggr_data$national_data <- aggr_data$national_data %>%
  dplyr::mutate(desired_level = dplyr::case_when(desired_level == "Høyt" ~ 1,
                                                 desired_level == "Lavt" ~ 0)) %>%
  dplyr::rename(level_direction = desired_level)


aggr_data$national_data$unit_name <- "Nasjonalt"


aggr_data$register_data$description <- aggr_data$register_data$description %>%
  dplyr::mutate(full_name = dplyr::case_when(
    registry_id == "intensiv" ~ "Intensiv",
    registry_id == "nkr_nakke" ~ "Nakke",
    registry_id == "muskel" ~ "Muskel",
    registry_id == "nnrr" ~ "NNRR",
    registry_id == "norgast" ~ "Norgast",
    registry_id == "norvas" ~ "Norvas",
    registry_id == "nra" ~ "NRA",
    registry_id == "rygg" ~ "Rygg",
    registry_id == "hoftebrudd" ~ "Hoftebrudd"
  ))

usethis::use_data(aggr_data, overwrite = TRUE)