context("list_identifiers")
test_that("list_identifiers - from", {
skip_on_cran()
recently <- format(Sys.Date() - 1, "%Y-%m-%d")
aa <- list_identifiers(from = recently)
expect_is(aa, "data.frame")
expect_is(aa, "tbl_df")
expect_is(aa$identifier, "character")
expect_is(aa$datestamp, "character")
# expect_equal(as.character(as.Date(aa$datestamp[1])), recently)
})
test_that("list_identifiers - from & until", {
skip_on_cran()
# from and until seems to mostly not work with GBIF's OAI-PMH
aa <- list_identifiers(from = '2018-06-01T',
until = '2018-06-03T')
bb <- list_identifiers(from = '2018-06-01T',
until = '2018-06-06T')
expect_is(aa, "tbl_df")
expect_is(bb, "tbl_df")
expect_lt(NROW(aa), NROW(bb))
})
test_that("list_identifiers - set", {
skip_on_cran()
aa <- list_identifiers(from = '2018-06-01T', until = '2018-06-06T',
set = "dataset_type:CHECKLIST")
bb <- list_identifiers(from = '2018-06-01T', until = '2018-06-16T',
set = "country:US")
expect_is(aa, "tbl_df")
expect_is(bb, "tbl_df")
expect_equal(aa$setSpec.1[1], "dataset_type:CHECKLIST")
# expect_equal(aa$setSpec.2[1], "country:CO")
# expect_equal(bb$setSpec.1[1], "dataset_type:OCCURRENCE")
expect_equal(bb$setSpec.2[1], "country:US")
})
test_that("list_identifiers fails well", {
skip_on_cran()
no_msg <- "The combination of the values of the from, until, set, and metadataPrefix arguments results in an empty list"
expect_error(list_identifiers(from = '2018-06-01T', until = 'adffdsadsf'),
"OAI-PMH errors: badArgument", class = "error")
expect_error(list_identifiers(from = '2018-06-01T', until = 5),
"OAI-PMH errors: badArgument", class = "error")
expect_error(list_identifiers(url = 5), "One or more of your URLs")
expect_error(
list_identifiers(from = '2018-06-01T', until = '2018-06-06T', set = "STUFF"),
"No matches", class = "error")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.