Nothing
## Retrieves the results form David analysis
# Input: inputFileLocation ...
# Output: Results data.frame
test_fea_david <- function()
{
#result <- fea_david(c("YBL084C", "YDL008W", "YDR118W", "YDR301W"))
# Check return
# checkTrue(is.list(result))
# checkTrue(all(c("queryArgs","clusters", "geneTermSets", "fileName") %in% names(result)))
# checkTrue(is.data.frame(result$clusters))
# checkEquals(length(result), 4)
# Check wrong URL
# checkException(getResults_david(inputFileLocation="http://madeup.com/DavidClustering.txt"), "Download URL (inputFileLocation) is not available.")
}
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.