P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-11 23:01:56 +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

2
R/sir_calc.R
View File

@ -334,7 +334,7 @@ sir_calc_df <- function(type, # "proportion", "count" or "both"
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
}