P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-12 17:01:57 +02:00
Code Releases Activity

expert rules 12.0

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-11-14 15:20:39 +01:00
parent 7ca44fb756
commit f6862a139d
35 changed files with 433 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/ab_selectors.R
View File

@ -685,7 +685,7 @@ all.ab_selector_any_all <- function(..., na.rm = FALSE) {
# e.g., example_isolates %>% filter(all(carbapenems() == "R"))
# so just return the vector as is, only correcting for na.rm
out <- unclass(c(...))
if (na.rm == TRUE) {
if (isTRUE(na.rm)) {
out <- out[!is.na(out)]
}
out
@ -699,7 +699,7 @@ any.ab_selector_any_all <- function(..., na.rm = FALSE) {
# e.g., example_isolates %>% filter(any(carbapenems() == "R"))
# so just return the vector as is, only correcting for na.rm
out <- unclass(c(...))
if (na.rm == TRUE) {
if (isTRUE(na.rm)) {
out <- out[!is.na(out)]
}
out