tests/testthat/test-import_all.R

test_that("can import all providers",{
  skip_if(TRUE, "takes a long time")
  tl_create("itis") # 32s
  tl_create("col")  # 3m
  tl_create("ott")  # 4m
  tl_create("gbif") # 5m
  # tl_create("iucn") #  no 2020, & 2019 fails
  # tl_create("fb")   #
  # tl_create("slb")  #
})

test_that("handles duplicate names", {
  skip_if(TRUE, "takes a long time")

  df <- tl("Muscicapa striata", "ott")
  x <- get_ids("Muscicapa striata", "ott")
  expect_gt(nrow(df), 1)  
  
  
  
  df <- tl("Muscicapa striata", "gbif")
  df <- tl("Muscicapa striata", "itis")
  df <- tl("Muscicapa striata", "col")
  
})

Try the taxalight package in your browser

Any scripts or data that you put into this service are public.

taxalight documentation built on Sept. 14, 2021, 5:15 p.m.