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.9128) fix for bug-drug combinations

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-01-27 11:51:40 +01:00
parent 7accf6ff13
commit 6efa317a81
9 changed files with 50 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/bug_drug_combinations.R
View File

@ -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