R/merge_rls_nucdiv.R

In Grelot/geogendivr: Geographic Gene Diversity in R

library(tidyverse)


#' @export
merge_info_nucdiv <- function(nucdivSpecies, reefishSurveyEnvSocio, reefishSurveySpecies) {
  rls.id_survey.id <- data.frame(rls.pts.index = as.integer(row.names(reefishSurveyEnvSocio)),
                                 SurveyID = reefishSurveyEnvSocio$SurveyID
  )
  nucdivSpeciesSurveyid <- merge(nucdivSpecies,
                                 rls.id_survey.id,
                                 by.x="rls.pts.index",
                                 by.y="rls.pts.index"
                                 )
  nucdivSpeciesSurveyRLSinfoSpecies <- nucdivSpeciesSurveyid %>% dplyr::inner_join(reefishSurveySpecies,
                                                                                   by=c("fishbase_species_name"="TAXONOMIC_NAME","SurveyID")
                                                                                   )
  nucdivSpeciesSurveyInfo <- nucdivSpeciesSurveyRLSinfoSpecies %>% dplyr::inner_join(reefishSurveyEnvSocio,
                                                                                     by=c("SurveyID")
                                                                                    )
  return(nucdivSpeciesSurveyInfo)
}