Nothing
#' Function to download species from fishtreeoflife
#'
#' @param order Character with names of species
#'
#' @return phylogeny
#'
#' @keywords internal
#'
filter_rank<- function(order){
if(length(which(sub("_.*", "", unlist(order)) == "not.found")) >= 1){
phy_ord<- fishtree::fishtree_phylogeny(unlist(order)[-which(sub("_.*", "", unlist(order)) == "not.found")])
} else{
phy_ord<- fishtree::fishtree_phylogeny(unlist(order))
}
phy_ord
}
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.