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

(v2.1.1.9218) Fix unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-19 16:05:24 +01:00
parent 4dc4398ad1
commit 287e361a54
17 changed files with 385 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/antibiogram.R
View File

@ -565,7 +565,7 @@ antibiogram.default <- function(x,
# make list unique
antimicrobials <- unique(user_ab)
# go through list to set AMR in combinations
for (i in seq_len(length(antimicrobials))) {
for (i in seq_along(antimicrobials)) {
abx <- antimicrobials[[i]]
for (ab in abx) {
# make sure they are SIR columns
@ -896,7 +896,7 @@ antibiogram.default <- function(x,
ab_naming_function <- function(x, t, l, s) {
x <- strsplit(x, s, fixed = TRUE)
out <- character(length = length(x))
for (i in seq_len(length(x))) {
for (i in seq_along(x)) {
a <- x[[i]]
if (is.null(t)) {
# leave as is
@ -941,7 +941,7 @@ antibiogram.default <- function(x,
if (isTRUE(has_syndromic_group)) {
grps <- unique(out$syndromic_group)
for (i in seq_len(length(grps))) {
for (i in seq_along(grps)) {
grp <- grps[i]
if (i == 1) {
new_df <- long_to_wide(out[which(out$syndromic_group == grp), , drop = FALSE])