R/mutate_sjhdata.R

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

#' @export
mutate_sjhdata <- function(x, ...) {
  x <- x %>%
    dplyr::rename(
      sjukhus = sjukhusnamn,
      region_sjh_txt = region
    ) %>%
    dplyr::mutate(
      sjukhuskod = as.integer(sjukhuskod),
      sjukhus = dplyr::if_else(
        sjukhus %in% c("Enhet utan INCA-rapp", "VC/Tjänsteläkare"), NA_character_, sjukhus
      )
    )

  return(x)
}