tests/testthat/test-finbif_check_taxa.R

test_that("checking taxa works", {

  skip_on_cran()

  op <- options()

  cache <- tempfile()

  dir.create(cache)

  options(finbif_cache_path = cache, finbif_rate_limit = Inf)

  finbif_clear_cache()

  if (requireNamespace("vcr", quietly = TRUE)) {

    vcr::use_cassette("finbif_check_taxa", {

      capture.output(
        cygnus_cygnus <- print(
          finbif_check_taxa(list(species = "Cygnus cygnus", "not_a_taxa"))
        )
      )

    })

    expect_equal(
      cygnus_cygnus,
      structure(
        list(
          species = c("Cygnus cygnus" = "MX.26280"),
          c(not_a_taxa = NA_character_)
        ),
        class = c("list", "finbif_taxa_list")
      )
    )

  }

  options(finbif_cache_path = NULL)

  options(op)

})

Try the finbif package in your browser

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

finbif documentation built on April 12, 2025, 2:22 a.m.