thischeck <- function() {
test_that("search_guids can cope with factor inputs", {
skip_on_cran()
expect_equal(search_guids(
factor("https://id.biodiversity.org.au/node/apni/2890970")),
search_guids("https://id.biodiversity.org.au/node/apni/2890970"))
})
}
check_caching(thischeck)
thischeck <- function() {
test_that("search_guids can cope with mixed recognized/unrecogized
guids", {
skip_on_cran()
expect_equal(is.na(
search_guids(c("https://id.biodiversity.org.au/node/apni/2890970",
"this_is_not_a_valid_guid"))$guid), c(FALSE, TRUE))
})
}
check_caching(thischeck)
thischeck <- function() {
test_that("search_guids can cope with all-unrecogized guids", {
skip_on_cran()
expect_equal(nrow(search_guids("fljkhdlsi")), 1)
expect_equal(nrow(search_guids(c("fljkhdlsi", "sdkhfowbiu"))), 2)
expect_true(all(is.na(search_guids(c("fljkhdlsi", "sdkhfowbiu"))$
guid)))
})
}
check_caching(thischeck)
thischeck <- function() {
test_that("search_guids returns occurrence counts when asked", {
skip_on_cran()
expect_false(is.na(
search_guids("https://id.biodiversity.org.au/node/apni/2890970",
occurrence_count = TRUE)$occurrenceCount))
expect_equal(is.na(
search_guids(c("https://id.biodiversity.org.au/node/apni/2890970",
"isdulfsadh"),
occurrence_count = TRUE)$occurrenceCount),
c(FALSE, TRUE))
expect_true(is.na(
search_guids(c("blahblah"),
occurrence_count = TRUE)$occurrenceCount))
expect_false(is.list(search_guids(
c("blahblah"), occurrence_count = TRUE)$occurrenceCount))
expect_false(is.list(search_guids(
c("blahblah", "jdfhsdjk"), occurrence_count = TRUE)$occurrenceCount))
expect_false(is.list(search_guids(
c("https://id.biodiversity.org.au/node/apni/2890970", "blahblah",
"jdfhsdjk"), occurrence_count = TRUE)$occurrenceCount))
expect_false(is.list(search_guids(
c("https://id.biodiversity.org.au/node/apni/2890970",
"https://id.biodiversity.org.au/node/apni/2890970"),
occurrence_count = TRUE)$occurrenceCount))
expect_false(is.list(search_guids(
c("https://id.biodiversity.org.au/node/apni/2890970"),
occurrence_count = TRUE)$occurrenceCount))
expect_output(print(
search_guids(c("https://id.biodiversity.org.au/node/apni/2890970"),
occurrence_count = TRUE)), "occurrenceCount")
expect_output(print(
search_guids(c("urn:lsid:biodiversity.org.au:afd.taxon:95773568",
"isdulfsadh"), occurrence_count = TRUE)),
"occurrenceCount")
expect_null(search_guids(
c("https://id.biodiversity.org.au/node/apni/2890970", "isdulfsadh"),
occurrence_count = FALSE)$occurrenceCount)
## "occurrenceCount" should not appear in the print(...) output
expect_equal(
length(grep("occurrenceCount",
capture.output(print(search_guids(
c("urn:lsid:biodiversity.org.au:afd.taxon:95773568",
"isdulfsadh"), occurrence_count = FALSE))))), 0)
})
}
check_caching(thischeck)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.