R/returnFactorSlots.R

In compbiomed/tableONE: Table One Figure Creation

#' returnFactorSlots - a helper function to return character summary of a factor based on the groupChar
#'
#' This function returns the text from a factor summary; the returned value is formatted such that it can be directly placed in the table 1 column
#' @param eSet - the eSet or data.frame sent to table1
#' @param groupChar - a factor column present in eSet by which to group samples and summarize char
#' @param group - which factor level from groupChar is summarized
#' @param char - which characteristic is summarized from eSet
#' @export

returnFactorSlots <- function(eSet, groupChar, group, char){
  return(t(t(c("", summary(eSet[[char]][eSet[[groupChar]]==group])))))
}