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

pm fixes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-02-08 16:51:41 +01:00
parent 822e9de82c
commit aa48c6bf53
11 changed files with 211 additions and 186 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/bug_drug_combinations.R
View File

@ -50,7 +50,6 @@
#' example_isolates
#'
#' x <- bug_drug_combinations(example_isolates)
#' head(x)
#' format(x, translate_ab = "name (atc)")
#'
#' # Use FUN to change to transformation of microorganism codes
@ -174,7 +173,7 @@ bug_drug_combinations <- function(x,
res <- do.call(rbind, unname(lapply(grouped, fn, ...)))
if (any(groups %in% colnames(res))) {
class(res) <- c("grouped_data", class(res))
res <- pm_set_groups(res, groups[groups %in% colnames(res)])
res <- pm_groups_set(res, groups[groups %in% colnames(res)])
}
res
}