thischeck=function() {
test_that("search_guids can cope with factor inputs", {
skip_on_cran()
expect_equal(search_guids(factor("NHMSYS0000080188")),search_guids("NHMSYS0000080188"))
})
}
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("NHMSYS0000080188","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("NHMSYS0000080188",occurrence_count=TRUE)$occurrenceCount))
expect_equal(is.na(search_guids(c("NHMSYS0000080188","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("urn:lsid:biodiversity.org.au:afd.name:292120","blahblah","jdfhsdjk"),occurrence_count=TRUE)$occurrenceCount))
expect_false(is.list(search_guids(c("urn:lsid:biodiversity.org.au:afd.name:292120","http://id.biodiversity.org.au/node/apni/2890970"),occurrence_count=TRUE)$occurrenceCount))
expect_false(is.list(search_guids(c("http://id.biodiversity.org.au/node/apni/2890970"),occurrence_count=TRUE)$occurrenceCount))
expect_output(print(search_guids(c("urn:lsid:biodiversity.org.au:afd.name:292120"),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("urn:lsid:biodiversity.org.au:afd.name:292120","isdulfsadh"),occurrence_count=FALSE)$occurrenceCount)
expect_equal(length(grep("occurrenceCount",capture.output(print(search_guids(c("urn:lsid:biodiversity.org.au:afd.taxon:95773568","isdulfsadh"),occurrence_count=FALSE))))),0) ## "occurrenceCount" should not appear in the print(...) output
})
}
check_caching(thischeck)
thischeck = function() {
test_that("search_guids arguments in NBN4R package match arguments in ALA4R package", {
expect_named(formals(search_guids),names(formals(ALA4R::search_guids)),ignore.order = TRUE)
})
}
check_caching(thischeck)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.