data-raw/itis_test.R

In cboettig/taxalight: A Lightweight and Lightning-Fast Taxonomic Naming Interface

library(dplyr)
itis_file <- contentid::resolve("hash://sha256/ef6ae3b337be65c661d5e2d847613ebc955bb9d91d2d98d03cf8c53029cecc2a")
itis_dwc <- vroom::vroom(itis_file)
sp <- c("Dendrocygna autumnalis", "Dendrocygna bicolor")
id <- c("ITIS:180092", "ITIS:179913")
itis_test <- dplyr::filter(itis_dwc, scientificName %in% sp | acceptedNameUsageID %in% id)
dir.create("inst/extdata", FALSE, TRUE)
vroom::vroom_write(itis_test, "inst/extdata/dwc_itis_test.tsv.gz")

itis_common <- contentid::resolve("hash://sha256/ae83e52e3492fb806da9b7d5c360da7cf822d0843bdd7f976b996decc1ae9571")
itis <- vroom::vroom(itis_common)
sp <- c("Dendrocygna autumnalis", "Dendrocygna bicolor")
id <- c("ITIS:180092", "ITIS:179913")
itis_test_common <- dplyr::filter(itis, scientificName %in% sp | acceptedNameUsageID %in% id)
vroom::vroom_write(itis_test_common, "inst/extdata/common_itis_test.tsv.gz")