R/get_endemism.R

In gustavobio/flora: Tools for Interacting with the Brazilian Flora 2020

#' Get the listed endemism for a list of taxa
#'
#' @param taxa A data frame with taxon names as returned by get.taxa()
#'
#' @return A data frame as returned by get.taxa with an extra column named vegtype.
#' @export
#' @examples
#' \dontrun{
#' taxa <- get.taxa(c("Myrcia guianensis", "bleh", "Xylopia", "Miconia albicans", "bleh", "Poa annua"))
#' get_endemism(taxa)
#' }
get_endemism <- function(taxa) {
  taxa <- dplyr::left_join(taxa, distribution[, c("id", "endemism")], 
                           by = "id")
  taxa
}