Alternative ways of generating tables and saving as an image file to import into a Word document

tables.R

# Function to create png tables from data
# By Michael Yan.
table.png <- function(obj, name) { 
  first <- name
  name <- paste(name,".tex",sep="")
  sink(file=name)
  cat('
\\documentclass{report}
\\usepackage[paperwidth=5.5in,paperheight=7in,noheadfoot,margin=0in]{geometry}
\\begin{document}\\pagestyle{empty}
')
  print(xtable::xtable(obj))
  cat('
\\end{document}
')
  sink()
  tools::texi2dvi(file=name)
  cmd <- paste("dvipng -T tight -D 600", shQuote(paste(first,".dvi",sep="")))
  invisible(system(cmd))
  cleaner <- c(".tex",".aux",".log",".dvi")
  invisible(file.remove(paste(first,cleaner,sep="")))
}