R/xtable2.R

In vladpetyuk/vp.misc: Miscellaneous functions used by Vlad Petyuk for proteomics data analysis

#' 
#' Customized xtable
#'
#' The main customization pertains to alternating
#' row shading. This one will work only in LaTeX-type documents.
#' See \code{\link[xtable]{xtable}} for details.
#'
#' @param x typically a \code{data.frame}. 
#' @return an object of class \code{"xtable"}
#' @importFrom xtable xtable print.xtable
#' @seealso \code{\link[xtable]{xtable}}
#' @export xtable2
#' 
xtable2 <- function(x, col.lab.rot=FALSE, ...){
    rws <- seq(1, (nrow(x)-1), by = 2)
    col <- rep("\\rowcolor[gray]{0.95}", length(rws))
    add.to.row = list(pos = as.list(rws), command = col)
    include.colnames = TRUE
    if(col.lab.rot){
        add.to.row$pos <- c(0, add.to.row$pos)
        cols <- paste0("\\rothead{",colnames(x),"}", collapse = " & ")
        cols <- paste0("\\rothead{} & ", cols, "\\\\")
        add.to.row$command <- c(cols, add.to.row$command)
        include.colnames = FALSE
    }
    arg1 <- list(...)[intersect(names(formals(xtable)), names(list(...)))]
    arg2 <- list(...)[intersect(names(formals(print.xtable)), names(list(...)))]
    x <- do.call(xtable, c(list(x=x), arg1))
    do.call(print.xtable, c(list(x=x, 
                               booktabs = TRUE, 
                               add.to.row = add.to.row,
                               include.colnames = include.colnames), 
                               arg2))
}