P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 03:22:00 +02:00
Code Releases Activity

prepare for CRAN

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-10-20 14:51:48 +02:00
parent 7dc96794be
commit 7cda9e575b
46 changed files with 7863 additions and 5663 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/mdro.R
View File

@ -203,7 +203,7 @@ mdro <- function(x = NULL,
}
info.bak <- info
# don't thrown info's more than once per call
# don't throw info's more than once per call
if (isTRUE(info)) {
info <- message_not_thrown_before("mdro")
}
@ -1611,10 +1611,12 @@ mdro <- function(x = NULL,
function(y) all(is.na(y))
))
if (length(rows_empty) > 0) {
cat(font_italic(paste0(" (", length(rows_empty), " isolates had no test results)\n")))
if (isTRUE(info.bak)) {
cat(font_italic(paste0(" (", length(rows_empty), " isolates had no test results)\n")))
}
x[rows_empty, "MDRO"] <- NA
x[rows_empty, "reason"] <- "none of the antibiotics have test results"
} else {
} else if (isTRUE(info.bak)) {
cat("\n")
}