knitr::opts_chunk$set(echo = TRUE, warning = FALSE, message = FALSE)
library(tidyverse) library(tidyices) species <- read_rds("data/species.rds") hl <- read_rds("data-raw/datras/ns-ibts_raw.rds")$hl %>% as_tibble() %>% rename_all(. , tolower) %>% id_unite() %>% left_join(species)
d <- hl %>% filter(is.na(lngtclass)) %>% select(id, latin, sex:hlnoatlngt) d %>% glimpse()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.