1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 18:06:12 +01:00
AMR/data-raw/whonet_bugfixes.R

12 lines
915 B
R

# WHONET fixes
microorganisms.codes[which(microorganisms.codes$code == "SAP"), "mo"] <- as.mo("staphylococcus")
microorganisms.codes[which(microorganisms.codes$code == "PAE"), "mo"] <- as.mo("pseudomonas aeruginosa")
microorganisms.codes[which(microorganisms.codes$code == "ANI"), "mo"] <- as.mo("aspergillus nidulans")
microorganisms.codes[which(microorganisms.codes$code == "CAL"), "mo"] <- as.mo("candida albicans")
microorganisms.codes[which(microorganisms.codes$code == "ENT"), "mo"] <- as.mo("enterococcus")
microorganisms.codes[which(microorganisms.codes$code == "STR"), "mo"] <- as.mo("streptococcus")
microorganisms.codes[which(microorganisms.codes$code == "CDF"), "mo"] <- as.mo("clostridium difficile")
microorganisms.codes[which(microorganisms.codes$code == "HA-"), "mo"] <- as.mo("haemophilus influenzae")
usethis::use_data(microorganisms.codes, overwrite = TRUE, version = 2)
rm(microorganisms.codes)