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

(v1.7.1.9069) CLSI 2021 support

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-12-12 11:36:58 +01:00
parent 1e66a3daf3
commit f90e27c1b0
30 changed files with 10419 additions and 6927 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/mo.R
View File

@ -1482,9 +1482,9 @@ exec_as.mo <- function(x,
uncertainties <- as.list(pm_distinct(uncertainties, input, .keep_all = TRUE))
pkg_env$mo_uncertainties <- uncertainties
if (message_not_thrown_before("as.mo", "uncertainties", uncertainties$input)) {
plural <- c("", "this", "uncertainty")
plural <- c("", "this")
if (length(uncertainties$input) > 1) {
plural <- c("s", "these", "uncertainties")
plural <- c("s", "these uncertainties")
}
if (length(uncertainties$input) <= 3) {
examples <- vector_and(paste0('"', uncertainties$input,
@ -1494,7 +1494,7 @@ exec_as.mo <- function(x,
examples <- paste0(nr2char(length(uncertainties$input)), " microorganism", plural[1])
}
msg <- paste0("Function `as.mo()` is uncertain about ", examples,
". Run `mo_uncertainties()` to review ", plural[2], " ", plural[3], ".")
". Run `mo_uncertainties()` to review ", plural[2], ".")
message_(msg)
}
}