production_scripts/HRI-LTC/ltc_group_name.R

In shintoLamp/bluenile: What the Package Does (One Line, Title Case)

ltc_grp_name <- function(ltc_name){
  
    case_when(
      ltc_name %in% c("dementia", "ms", "parkinsons")  ~ "Neurodegenerative - Grp",
      ltc_name %in% c("atrialfib", "chd", "cvd", "hefailure") ~ "Cardio - Grp",
      ltc_name %in% c("asthma", "copd")  ~ "Respiratory - Grp",
      ltc_name %in% c("liver", "refailure")  ~ "Other Organ - Grp"
    )
  
}