R/tab_categorical.R

In belayb/JigsawEHR: Analysis pipline for JIGSAW project (JigsawEHR)

#' Tabulate categorical data
#'
#' @param df a spark data frame object
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
tab_categorical <- function(df, ...){
  df<-dplyr::as_tibble(df)
  df%>%
    dplyr::select(...)%>%
    tidyr::gather(., "var", "value") %>%
    dplyr::count(var, value) %>%
    dplyr::group_by(var) %>%
    dplyr::mutate(prop = prop.table(n))

}