R/save_as_xls.R

In massiveGST: Competitive Gene Sets Test with the Mann-Whitney-Wilcoxon Test

save_as_xls <-
function(x, file_name = "massiveGST.xls", ...) {
  x$gene_set <- rownames(x)
  x <- cbind(x[,ncol(x)], x[, -ncol(x)])
  colnames(x)[1] <- "gene set"
  WriteXLS(x, ExcelFileName = file_name, AdjWidth = TRUE, BoldHeaderRow = TRUE, SheetNames = "massiveGST")
  invisible(NULL)
}