tests/testthat/test-realthing.R

In ropensci/taxizedb: Tools for Working with 'Taxonomic' Databases

library(dplyr)
library(dbplyr)
library(taxizedb)

test_that("We can actually download, load, and query all databases", {

  testthat::skip_if_not(Sys.getenv("taxizedb_docker") == "test" )

  ## These should load from cache if we already have the download!
  gbif <- db_download_gbif()
  itis <- db_download_itis()
  tpl <- db_download_tpl()
  col <- db_download_col()
  ncbi <- db_download_ncbi()
  wfo <- db_download_wfo()
  wikidata <- db_download_wikidata()

  # gbif <- "~/.cache/R/taxizedb/gbif.sqlite"      # SQLITE
  # itis <- "~/.cache/R/taxizedb/ITIS.sqlite"      # SQLITE
  # tpl  <- "~/.cache/R/taxizedb/plantlist.sqlite" # SQLITE
  # col <-  "~/.cache/R/taxizedb/col.sqlite"       # SQLITE
  # ncbi <- "~/.cache/R/taxizedb/NCBI.sql"         # SQLITE?
  # wfo <-  "~/.cache/R/taxizedb/wfo.sqlite"       # SQLITE

  ## Load the actual data:
  gbif_db <- src_gbif()
  itis_db <- src_itis()
  tpl_db <- src_tpl()
  col_db <- src_col()
  ncbi_db <- src_ncbi()
  wfo_db <- src_wfo()
  wikitaxa_db <- src_wikidata()
})