In karinorman/biodivTS: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(echo = TRUE)

library(tidyverse)
library(BIEN)
library(taxadb)

source(here::here("data-raw", "helper_functions.R"))

Let's get them traits

trait_types <- na.omit(BIEN_trait_list())

BIEN_data <- map_dfr(trait_types$trait_name, BIEN_trait_trait)

bien <- BIEN_data %>%
  select(scientificName = scrubbed_species_binomial, trait_name, trait_value, unit, method, latitude, longitude, elevation_m, obsID = id) %>%
  spread()

Get id's for just the unique

bien_ids <- bien %>% 
  select(scientificName) %>%
  distinct() %>%
  mutate(id = get_ids(scientificName))

usethis::use_data(bien)

karinorman/biodivTS documentation built on Dec. 23, 2024, 10 p.m.