`ns.blast.unique.names` <- function(names) { length(names)==length(unique(unlist(try(lapply(strsplit(names," "),function(x) { x[[1]] }),silent=TRUE)))) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.