R/CreateDatatable.R

In zhezhangsh/awsomicsR: awsomics framework

# Generate a Java DataTable from a matrix or data.frame in a "standard" way
CreateDatatable<-function(t, fn, format=TRUE, rownames=TRUE, caption='', selection='none') {
  # t         The table
  # fn        The HTML file to be written to
  # rownames  If TRUE, make the row names of the table as the first column named "ID"; not include row names in the output otherwise.
  
  require(awsomics);
  require(DT);
  require(htmlwidgets);
  
  if (!grepl('.html$', fn, ignore.case = TRUE)) fn<-paste(fn[1], '.html', sep='') else fn<-fn[1];
  if(!grepl('^/', fn)) fn0<-paste(getwd(), fn, sep='/') else fn0<-fn;
  
  for (i in 1:ncol(t)) if (class(t[, i]) == 'factor') t[, i]<-as.vector(t[, i]);
  
  if (rownames) t<-cbind(ID=rownames(t), t); 
  if (format) t<-FormatNumeric(t, digit=4);
  
  pg<-DT::datatable(t, options=list(
    "pageLength"=50, 
    server=TRUE
  ), rownames=FALSE, caption=caption, selection=selection, filter='bottom', escape=FALSE);
  
  htmlwidgets::saveWidget(pg, fn0, selfcontained = FALSE);
  
  fn;                  
}