Nothing
`getPATHTerms` <-
function(pathIDs) {
if (length(pathIDs) == 0) return(NULL)
require(KEGG.db)
#pathIDs <- gsub('[^\\d]', '', pathIDs, perl=TRUE)
pathName <- lookUp(pathIDs, 'KEGG', 'PATHID2NAME')
return(pathName[pathIDs])
}
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.