mirror of
https://github.com/msberends/AMR.git
synced 2025-07-09 13:42:04 +02:00
fixes for microorganisms.codes
This commit is contained in:
@ -396,7 +396,7 @@ mo_validate <- function(x, property, ...) {
|
||||
tryCatch(x[1L] %in% AMR::microorganisms[1, property],
|
||||
error = function(e) stop(e$message, call. = FALSE))
|
||||
|
||||
if (!all(x %in% AMR::microorganisms[, property])
|
||||
if (!all(x %in% pull(AMR::microorganisms, property))
|
||||
| Becker %in% c(TRUE, "all")
|
||||
| Lancefield %in% c(TRUE, "all")) {
|
||||
exec_as.mo(x, property = property, ...)
|
||||
|
Reference in New Issue
Block a user