R/LaTeXtableR.R

Defines functions LaTeXtableR

Documented in LaTeXtableR

#' LaTeX Table Maker
#'
#' @param analysis Analysis that produced data for regression analyses: "cfa", "bf", or "lca"
#' @param model Which model (numerically) out of the list of models? Pulls predictors from modelPredictorNamesList
#' @param outcomeVar Outcome variable name
#'
#' @return
#' @export
LaTeXtableR <- function(analysis, model, outcomeVar) {

  caption <- titleR(analysis = analysis, model = model, outcomeVar = outcomeVar)
  tableNote <- tableNoteR(analysis = analysis, model = model, outcomeVar = outcomeVar)

  label <- paste0(outcomeVar, '_', analysis, '_', model) # label for LaTeX table referencing

  mat <- paste0(outcomeVar, '_', analysis, '_', model)
  eval(parse(text = paste0('mat <- ', mat)))
  #CODE <- tableR(caption = caption, label = label, tableNote = tableNote, mat = mat)
  #return(CODE)
  do.call(tableR, list(caption, label, tableNote, mat), quote = FALSE)

}
enaY15/TabulationAutomation documentation built on March 18, 2020, 8:35 p.m.