wrapper for using xtable and print.xtable. Does not handle long tables.

print_xtable.R

print_xtable = function(table_in, 
                        caption = "FILL IN CAPTION",
                        digits = NULL,
                        align = NULL,
                        include.rownames = F,
                        comment = F,
                        sanitize.text.function = function(x) x,
                        xtable.options = NULL, 
                        return_xtable = F,
                        ...){
  
  tex_table = do.call("xtable", c(list(table_in, caption = caption, digits = digits, align = align), 
                                  xtable.options))
  
  if(return_xtable) return(tex_table)
  
  print(tex_table, 
        sanitize.text.function = sanitize.text.function, include.rownames = include.rownames,
        ...)
  
}