tests/testthat/test-networks.r

context("networks")

test_that("returns the correct", {
  vcr::use_cassette("networks", {
    tt <- networks()
    expect_is(tt, "list")
    expect_is(tt$meta, "data.frame")
    expect_is(tt$meta$limit, "integer")
    expect_is(tt$meta$endOfRecords, "logical")
    expect_is(tt$data, "data.frame")
  })
})

Try the rgbif package in your browser

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

rgbif documentation built on Oct. 20, 2018, 1:03 a.m.