Nothing
get_geneProfile <-
function (ffile) {
tmp <- read.delim(ffile, header = FALSE, row.names = 1)
ans <- tmp[, 1]
names(ans) <- rownames(tmp)
invisible(ans)
}
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.