Nothing
context("Setting up GBIF Login")
library(occCite)
test_that("GBIFLoginManager error messaging behaves as expected", {
skip_on_cran()
test <- try(rgbif::occ_count(country = "DK"),
silent = T
)
skip_if(class(test) != "numeric", "GBIF connection unsuccessful")
expect_warning(
GBIFLoginManager("testing", "the", "login")
)
})
test_that("GBIFLoginManager actually picks up login information", {
skip_on_cran()
test <- try(rgbif::occ_count(country = "DK"),
silent = T
)
skip_if(class(test) != "numeric", "GBIF connection unsuccessful")
GBIFLogin <- try(GBIFLoginManager(), silent = T)
skip_if(is(GBIFLogin, "try-error"),
message = "GBIF login unsuccessful")
test <- try(rgbif::occ_download_list(
user = GBIFLogin@username,
pwd = GBIFLogin@pwd, limit = 1,
),
silent = T
)
skip_if(class(test) != "occ_download", "GBIF login unsuccessful")
expect_true("username" %in% slotNames(GBIFLogin))
expect_true(nchar(GBIFLogin@username) > 0)
expect_true("email" %in% slotNames(GBIFLogin))
expect_true(nchar(GBIFLogin@email) > 0)
expect_true("pwd" %in% slotNames(GBIFLogin))
expect_true(nchar(GBIFLogin@pwd) > 0)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.