P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 13:21:50 +02:00
Code Releases Activity

fix unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-10-04 14:41:02 +02:00
parent 082e52a0dd
commit 37f6db5ccd
19 changed files with 297 additions and 234 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
data-raw/read_EUCAST.R
View File

@ -109,7 +109,7 @@ read_EUCAST <- function(sheet, file, guideline_name) {
for (i in seq_len(length(x))) {
y <- trimws2(unlist(strsplit(x[i], "(,|and)")))
y <- trimws2(gsub("[(].*[)]", "", y))
y <- suppressWarnings(suppressMessages(as.mo(y, allow_uncertain = FALSE)))
y <- suppressWarnings(suppressMessages(as.mo(y)))
if (!is.null(mo_uncertainties())) uncertainties <<- add_uncertainties(uncertainties, mo_uncertainties())
y <- y[!is.na(y) & y != "UNKNOWN"]
x[i] <- paste(y, collapse = "|")