organism.type.check <- function(organism.type){
if (!(organism.type %in% c('human','fly'))) stop(paste( organism.type ,' is not currently supported'))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.