Nothing
#' Get the species name from the description sequence
#'
#' Parse a string vector with sequence descriptions (title and species) and
#' extract the species name.
#'
#' @usage
#' get_spp(description)
#'
#' @param description A string vector with the sequence description (title and species).
#'
#' @importFrom stringr str_sub str_locate
#'
#' @return
#' for each sequence description, extract the species name.
#'
#' @author Jose V. Die
get_spp <-
function(description) {
spp <- str_sub(description,
start = str_locate(description, "\\[")[1]+1,
end = str_locate(description, "\\]")[2]-1)
spp
}
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.