is_outformat <- function(out.format) {
if (!is.element(out.format, list_outformats()))
stop("'",out.format, "' is not an available BLAST output format.", call. = FALSE)
return(TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.