Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.