#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.