tests/testthat/test-download_parsing.R

In ropensci/rgbif: Interface to the Global Biodiversity Information Facility API

# not testing the actual HTTP request
context("occ_download parsing")

user <- "sckott"
email <- 'foo@bar.com'
type <- 'and'

test_that("occ_download input parsing", {
  aa <- parse_predicates(user, email, type, "DWCA", pred("taxonKey", 7228682))
  expect_is(aa, "list")
  expect_named(aa, c("creator", "notification_address", "format", "predicate"))
  expect_is(aa$predicate$type, "character")
  expect_is(aa$predicate$type, "scalar")
  expect_equal(aa$predicate$type[1], "equals")
  expect_equal(unclass(aa$predicate$type), "equals")
  expect_equal(unclass(aa$predicate$key), "TAXON_KEY")
  expect_equal(unclass(aa$predicate$value), "7228682")
  expect_null(aa$predicate$predicates)

  bb <- parse_predicates(user, email, type, "DWCA", pred("hasCoordinate", TRUE))
  expect_is(bb, "list")
  expect_is(bb$predicate$type, "character")
  expect_is(bb$predicate$type, "scalar")
  expect_equal(unclass(bb$predicate$type[1]), "equals")
  expect_equal(unclass(bb$predicate$type), "equals")
  expect_equal(unclass(bb$predicate$key), "HAS_COORDINATE")
  expect_equal(unclass(bb$predicate$value), "true")
  expect_null(bb$predicate$predicates)

  cc <- parse_predicates(user, email, type, "DWCA",
    pred_within("POLYGON((30.1 10.1,40 40,20 40,10 20,30.1 10.1))"))
  expect_is(cc, "list")
  expect_is(cc$predicate$type, "character")
  expect_is(cc$predicate$type, "scalar")
  expect_equal(unclass(cc$predicate$type), "within")
  expect_null(cc$predicate$key)
  expect_null(cc$predicate$value)
  expect_equal(unclass(cc$predicate$geometry),
    "POLYGON((30.1 10.1,40 40,20 40,10 20,30.1 10.1))")
  expect_null(cc$predicate$predicates)

  aa <- parse_predicates(user, email, type, "DWCA",
    pred('taxonKey', 7228682),
    pred('hasCoordinate', TRUE),
    pred('hasGeospatialIssue', FALSE),
    pred_within('POLYGON((30.1 10.1,40 40,20 40,10 20,30.1 10.1))')
  )
  expect_is(aa, "list")
  expect_named(aa, c("creator", "notification_address", "format", "predicate"))
  expect_is(aa$predicate$type, "character")
  expect_is(aa$predicate$type, "scalar")
  expect_named(aa$predicate, c("type", "predicates"))
  expect_is(aa$predicate$predicates, "list")
  expect_equal(aa$predicate$predicates[[1]]$type[1], "equals")
  expect_is(aa$predicate$predicates[[4]]$geometry[1], "character")

  # format=SIMPLE_CSV
  aa <- parse_predicates(user, email, type, "SIMPLE_CSV",
    pred_gte('decimalLatitude', 82))
  expect_is(aa, "list")
  expect_named(aa, c("creator", "notification_address", "format", "predicate"))
  expect_is(aa$predicate$type, "character")
  expect_is(aa$predicate$type, "scalar")
  expect_equal(unclass(aa$predicate$type), "greaterThanOrEquals")
  expect_equal(unclass(aa$predicate$key), "DECIMAL_LATITUDE")
  expect_equal(unclass(aa$predicate$value), "82")
  expect_equal(unclass(aa$format), "SIMPLE_CSV")
  expect_null(aa$predicate$predicates)

  # format=SPECIES_LIST
  aa <- parse_predicates(user, email, "not", "SPECIES_LIST",
    pred_lt('decimalLatitude', 2000))
  expect_is(aa, "list")
  expect_named(aa, c("creator", "notification_address", "format", "predicate"))
  expect_is(aa$predicate$type, "character")
  expect_is(aa$predicate$type, "scalar")
  expect_equal(aa$predicate$type[1], "lessThan")
  expect_equal(aa$predicate$key[1], "DECIMAL_LATITUDE")
  expect_equal(aa$predicate$value[1], "2000")
  expect_equal(unclass(aa$format), "SPECIES_LIST")
  expect_null(aa$predicate$predicates)
})

test_that("parse_predicates fails well", {
  expect_error(
    parse_predicates(user, email, type, "DWCA", 'hasCoordinate = TRUE'),
    "all inputs must be"
  )
})