P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-12-14 12:30:20 +01:00
Code Releases Activity

(v2.1.1.9218) Fix unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-19 16:05:24 +01:00
parent 4dc4398ad1
commit 287e361a54
17 changed files with 385 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
data-raw/reproduction_of_antimicrobials.R
View File

@@ -1048,12 +1048,12 @@ for (i in 1:nrow(antimicrobials)) {
if (antimicrobials$ab[i] == "VAN") syn <- syn[syn %unlike% "^tei?ch?o"]
if (antimicrobials$ab[i] == "CLR") syn <- syn[syn %unlike% "^ery"]
antimicrobials[i, "atc"][[1]] <- ifelse(length(atc) == 0, list(NA_character_), list(atc))
antimicrobials[i, "abbreviations"][[1]] <- ifelse(length(abb) == 0, list(""), list(abb))
antimicrobials[i, "synonyms"][[1]] <- ifelse(length(syn) == 0, list(""), list(syn))
antimicrobials[i, "abbreviations"][[1]] <- ifelse(length(abb) == 0, list(NA_character_), list(abb))
antimicrobials[i, "synonyms"][[1]] <- ifelse(length(syn) == 0, list(NA_character_), list(syn))
if ("loinc" %in% colnames(antimicrobials)) {
loinc <- as.character(sort(unique(tolower(antimicrobials[i, "loinc", drop = TRUE][[1]]))))
loinc <- loinc[loinc != ""]
antimicrobials[i, "loinc"][[1]] <- ifelse(length(loinc) == 0, list(""), list(loinc))
antimicrobials[i, "loinc"][[1]] <- ifelse(length(loinc) == 0, list(NA_character_), list(loinc))
}
}