mirror of
https://github.com/msberends/AMR.git
synced 2024-12-25 08:06:12 +01:00
N for only 1 AB in
This commit is contained in:
parent
551aaf6517
commit
a84101db08
@ -1,5 +1,5 @@
|
||||
Package: AMR
|
||||
Version: 1.8.2.9140
|
||||
Version: 1.8.2.9141
|
||||
Date: 2023-02-22
|
||||
Title: Antimicrobial Resistance Data Analysis
|
||||
Description: Functions to simplify and standardise antimicrobial resistance (AMR)
|
||||
|
2
NEWS.md
2
NEWS.md
@ -1,4 +1,4 @@
|
||||
# AMR 1.8.2.9140
|
||||
# AMR 1.8.2.9141
|
||||
|
||||
*(this beta version will eventually become v2.0! We're happy to reach a new major milestone soon!)*
|
||||
|
||||
|
@ -191,8 +191,7 @@
|
||||
#' antibiotics = aminoglycosides(),
|
||||
#' ab_transform = "name",
|
||||
#' syndromic_group = ifelse(ex1$ward == "ICU",
|
||||
#' "UCI", "No UCI"
|
||||
#' ),
|
||||
#' "UCI", "No UCI"),
|
||||
#' language = "es"
|
||||
#' )
|
||||
#'
|
||||
@ -488,9 +487,16 @@ antibiogram <- function(x,
|
||||
count_group <- n_per_mo$count[match(new_df[[1]], n_per_mo$mo)]
|
||||
edit_col <- 1
|
||||
}
|
||||
if (NCOL(new_df) == edit_col + 1) {
|
||||
# only 1 antibiotic
|
||||
new_df[[edit_col]] <- paste0(new_df[[edit_col]], " (", unlist(lapply(strsplit(count_group, "-"), function(x) x[1])), ")")
|
||||
colnames(new_df)[edit_col] <- paste(colnames(new_df)[edit_col], "(N)")
|
||||
} else {
|
||||
# more than 1 antibiotic
|
||||
new_df[[edit_col]] <- paste0(new_df[[edit_col]], " (", count_group, ")")
|
||||
colnames(new_df)[edit_col] <- paste(colnames(new_df)[edit_col], "(N min-max)")
|
||||
}
|
||||
}
|
||||
|
||||
out <- as_original_data_class(new_df, class(x), extra_class = "antibiogram")
|
||||
rownames(out) <- NULL
|
||||
|
@ -220,8 +220,7 @@ antibiogram(ex1,
|
||||
antibiotics = aminoglycosides(),
|
||||
ab_transform = "name",
|
||||
syndromic_group = ifelse(ex1$ward == "ICU",
|
||||
"UCI", "No UCI"
|
||||
),
|
||||
"UCI", "No UCI"),
|
||||
language = "es"
|
||||
)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user