1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 16:02:02 +02:00

(v1.2.0.9016) fix in rsi_calc()

This commit is contained in:
2020-06-26 10:21:22 +02:00
parent 033ca49817
commit b31003c0b6
21 changed files with 71 additions and 61 deletions

2
R/ab.R
View File

@ -209,7 +209,7 @@ as.ab <- function(x, ...) {
# correct for digital reading text (OCR)
x_spelling <- gsub("[NRD]", "[NRD]", x_spelling)
}
# try if name starts with it
found <- antibiotics[which(antibiotics$name %like% paste0("^", x_spelling)), ]$ab
if (length(found) > 0) {