Hospitalname and/or location, with support for all hospitals in Northern Netherlands, including Meppel, Hardenberg and Zwolle.
hospital_name(x, format = "{naamkort}, {plaats}")text to be transformed
default is "{naamkort}, {plaats}". Attributes like x to be returned in 'glue'-format (in curly brackets).
hospital_name(c("MCL", "MCL", "Martini"))
#> [1] "MCL, Leeuwarden" "MCL, Leeuwarden" "MZH, Groningen"
hospital_name(c("Antonius", "WZA", "Martini"), format = "{naam} te {plaats}")
#> [1] "Antonius Ziekenhuis te Sneek" "Wilhelmina Ziekenhuis te Assen"
#> [3] "Martini Ziekenhuis te Groningen"
# special case for GGD
hospital_name(c("Martini", "GGD Groningen", "GGD Drenthe"), format = "{naam}")
#> [1] "Martini Ziekenhuis" "GGD Groningen" "GGD Drenthe"
hospital_name(c("Martini", "GGD Groningen", "GGD Drenthe"), format = "{naamkort}")
#> [1] "MZH" "GGD" "GGD"
hospital_name("ggd friesland", "{naam}")
#> [1] "GGD Fryslân"