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

(v2.1.1.9290) typo

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2025-06-01 16:07:38 +02:00
parent d384b492cf
commit 79038fed21
No known key found for this signature in database
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 2.1.1.9289 Version: 2.1.1.9290
Date: 2025-06-01 Date: 2025-06-01
Title: Antimicrobial Resistance Data Analysis Title: Antimicrobial Resistance Data Analysis
Description: Functions to simplify and standardise antimicrobial resistance (AMR) Description: Functions to simplify and standardise antimicrobial resistance (AMR)

2
NEWS.md
View File

@ -1,4 +1,4 @@
# AMR 2.1.1.9289 # AMR 2.1.1.9290
*(this beta version will eventually become v3.0. We're happy to reach a new major milestone soon, which will be all about the new One Health support! Install this beta using [the instructions here](https://amr-for-r.org/#get-this-package).)* *(this beta version will eventually become v3.0. We're happy to reach a new major milestone soon, which will be all about the new One Health support! Install this beta using [the instructions here](https://amr-for-r.org/#get-this-package).)*

4
R/mdro.R
View File

@ -204,14 +204,14 @@ mdro <- function(x = NULL,
} }
if (is.character(vanA)) { if (is.character(vanA)) {
meet_criteria(vanA, is_in = colnames(x), allow_NA = FALSE, has_length = 1) meet_criteria(vanA, is_in = colnames(x), allow_NA = FALSE, has_length = 1)
vanA <- x[[VanA]] vanA <- x[[vanA]]
meet_criteria(vanA, allow_class = "logical", allow_NA = TRUE) meet_criteria(vanA, allow_class = "logical", allow_NA = TRUE)
} else if (length(vanA) == 1) { } else if (length(vanA) == 1) {
vanA <- rep(vanA, NROW(x)) vanA <- rep(vanA, NROW(x))
} }
if (is.character(vanB)) { if (is.character(vanB)) {
meet_criteria(vanB, is_in = colnames(x), allow_NA = FALSE, has_length = 1) meet_criteria(vanB, is_in = colnames(x), allow_NA = FALSE, has_length = 1)
vanB <- x[[VanB]] vanB <- x[[vanB]]
meet_criteria(vanB, allow_class = "logical", allow_NA = TRUE) meet_criteria(vanB, allow_class = "logical", allow_NA = TRUE)
} else if (length(vanB) == 1) { } else if (length(vanB) == 1) {
vanB <- rep(vanB, NROW(x)) vanB <- rep(vanB, NROW(x))