Hospitalname

Hospitalname and/or location, with support for all hospitals in Northern Netherlands, including Meppel, Hardenberg and Zwolle.

hospital_name(x, format = "{naamkort}, {plaats}")

Arguments

x

text to be transformed

format

default is "{naamkort}, {plaats}". Attributes like x to be returned in 'glue'-format (in curly brackets).

Examples

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"