Nothing
stats.BOLD <-
function(taxon){
space <- grep(" ", taxon)
if(length(space) > 0) taxon[space] <- sapply(space, function(x) paste("\"", taxon[x], "\"", sep=""))
taxon <- paste(taxon, collapse="%20")
taxon <- gsub(" ", "%20", taxon)
URL <- paste("http://v3.boldsystems.org/index.php/Public_SearchTerms?query=", taxon, sep="")
res <- scan(file = URL, what = "", sep = "\n", quiet = TRUE)
res <- res[grep("totalRecords", res)]
as.numeric(gsub("[^[:digit:]]", "", res))
}
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.