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

(v2.1.1.9223) allow + ab

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-20 22:56:32 +01:00
parent d147d6602d
commit bb110646db
10 changed files with 43 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/amr_selectors.R
View File

@ -954,9 +954,10 @@ any.amr_selector_any_all <- function(..., na.rm = FALSE) {
#' @noRd
`+.amr_selector` <- function(e1, e2) {
# this is useful for `antibiogram()`: antibiogram(example_isolates, carbapenems() + c("", "GEN", "TOB"))
structure(as.character(outer(e1, e2, paste, sep = " + ")),
class = c("amr_selector", "character")
)
# this is also implemented for ab class, to allow direct console usage
out <- as.character(outer(e1, e2, paste, sep = " + "))
out <- gsub(" [+] $", "", out)
structure(out, class = c("amr_selector", "character"))
}
is_any <- function(el1) {