P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-03-11 17:47:50 +01:00
Code Releases Activity

(v3.0.1.9032) fix unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-03-08 20:36:15 +01:00
parent b6f8584994
commit cba315c2e7
4 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/mdro.R
View File

@@ -506,7 +506,7 @@ mdro <- function(x = NULL,
.new_col <- paste0(.base_code, ".inferred_sir_proxy_from#", paste0(.combos, collapse = "/"), "#")
x[[.new_col]] <- ifelse(rowSums(.sir_chars == "R", na.rm = TRUE) > 0L, "R", NA_character_)
cols_ab <- c(cols_ab, stats::setNames(.new_col, .base_code))
if (info == TRUE) {
if (isTRUE(info.bak)) {
message_(
"Inferring resistance for ",
ab_name(.base_code, language = NULL, tolower = TRUE),