R/extract_groutable.R

In ZhonghuiGai/groutable: This is a wrapper function of compareGroups package

#' Transform the result of compareGroups to a data frame for further use
#'
#' @param groutable the result of createTable in compareGroups package
#'
#' @return a data frame
#' @export
#'
#' @author Zhonghui Gai
#' @examples
#' groutable(data = iris, variable = 5)  |> extract_groutable ()
extract_groutable_descr <- function(groutable){
  stopifnot(inherits(groutable, "createTable"))
  res <- groutable$descr  |> as.data.frame()
  res[] <- sapply(res, function(x) gsub("±", " ± ", x))
  res[] <- sapply(res, trimws)
  return(res)
}

#' Transform the result of compareGroups to a data frame for further use
#'
#' @param groutable the result of createTable in compareGroups package
#'
#' @return a data frame
#' @export
#'
#' @author Zhonghui Gai
#' @examples
#' groutable(data = iris, variable = 5)  |> extract_groutable ()
extract_groutable_avail <- function(groutable){
  stopifnot(inherits(groutable, "createTable"))
  res <- groutable$avail  |> as.data.frame()
  res[] <- sapply(res, function(x) gsub("±", " ± ", x))
  res[] <- sapply(res, trimws)
  return(res)
}