include.colnames <- TRUE\r
}\r
\r
+ ## Create headings for columns if multiple headings are needed\r
if (colnames.format == "multiple"){\r
if (is.null(sanitize.colnames.function)) {\r
colHead <- names(x[[1]])\r
colHead <- paste("\\begin{sideways}", colHead, "\\end{sideways}")\r
}\r
colHead <- paste0(colHead, collapse = " & ")\r
+ if (include.rownames) {\r
+ colHead <- paste0(" & ", colHead)\r
+ }\r
colHead <- paste0(tRule, "\n", colHead, " \\\\", mRule, "\n")\r
add.to.row <- list(pos = NULL, command = NULL)\r
add.to.row$pos <- as.list(c(0, c(combinedRowNums[1:length(x)])))\r