R/fishbase_name_species_bold.R

In Grelot/geogendivr: Geographic Gene Diversity in R

library(tidyverse)
library(rfishbase)

#' @export
fishbase_names_check <- function(species_name) {	
  fishbase_name=rfishbase::validate_names(species_name)
  if(identical(fishbase_name, character(0))) {		
    fishbase_name=NA
  }
  return(fishbase_name)
}


#' @export
fishbase_name_species_bold <- function(datGeoSpecMarkSeqClean) {
  datGeoSpecMarkSeqFish <- datGeoSpecMarkSeqClean %>% 
    dplyr::mutate(fishbase_species_name=as.character(lapply(species_name, fishbase_names_check)))
  return(datGeoSpecMarkSeqFish)
}