R/data_wildfinder.R

In nhenry50/datatoolboxexos2021: Code pour la formation datatoolbox

#' Import WWF Species Data
#'
#' @return A tibble containing species ID & taxonomy
#' @export
#'
data_sp_list <- function(){

  dat <- readr::read_csv(
    here::here("data","wwf-wildfinder","wildfinder-mammals_list.csv")
  )
  return(dat)
}


#' Import WWF Ecoregions Data
#'
#' @return A tibble containing ecoregions ID &
#' @export
#'
data_eco_list <- function(){

  dat <- readr::read_csv(
    here::here("data","wwf-wildfinder","wildfinder-ecoregions_list.csv")
  )
  return(dat)
}

#' Import WWF species-ecoregions Data
#'
#' @return A tibble linknig species IDs to ecoregions IDs
#' @export
#'
data_sp_eco_list <- function(){

  dat <- readr::read_csv(
    here::here("data","wwf-wildfinder","wildfinder-ecoregions_species.csv")
  )
  return(dat)
}