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

website update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-01-30 19:52:58 +01:00
parent 0b3dc0231f
commit d75ec01f92
3 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/freq.R
View File

@ -251,6 +251,12 @@ frequency_tbl <- function(x,
new_list <- list(0)
for (i in 1:length(user_exprs)) {
new_list[[i]] <- eval_tidy(user_exprs[[i]], data = x)
if (length(new_list[[i]]) == 1) {
if (is.character(new_list[[i]]) & new_list[[i]] %in% colnames(x)) {
# support septic_patients %>% freq("hospital_id")
new_list[[i]] <- x %>% pull(new_list[[i]])
}
}
cols <- c(cols, as_label(user_exprs[[i]]))
}