mirror of
https://github.com/msberends/AMR.git
synced 2025-07-11 23:01:56 +02:00
(v2.1.1.9128) fix for bug-drug combinations
This commit is contained in:
@ -172,16 +172,16 @@ bug_drug_combinations <- function(x,
|
||||
res
|
||||
}
|
||||
|
||||
if (include_n_rows == FALSE) {
|
||||
out <- out[, colnames(out)[colnames(out) != "total_rows"], drop = FALSE]
|
||||
}
|
||||
|
||||
if (data_has_groups) {
|
||||
out <- apply_group(x, "run_it", groups)
|
||||
} else {
|
||||
out <- run_it(x)
|
||||
}
|
||||
|
||||
if (include_n_rows == FALSE) {
|
||||
out <- out[, colnames(out)[colnames(out) != "total_rows"], drop = FALSE]
|
||||
}
|
||||
|
||||
out <- out %pm>% pm_arrange(mo, ab)
|
||||
out <- as_original_data_class(out, class(x.bak)) # will remove tibble groups
|
||||
rownames(out) <- NULL
|
||||
|
Reference in New Issue
Block a user