Nothing
context("webtests")
test_that("login", {
expect_s4_class(movebankLogin("asdf", "asdf"), "MovebankLogin")
expect_silent(a <- movebankLogin("asdf", "asdf"))
expect_error(movebankLogin("asdf", 234))
expect_error(movebankLogin("asdf", factor("a")))
expect_error(movebankLogin("asdf", login = 234))
expect_s4_class(movebankLogin(), "MovebankLogin")
})
test_that("false login", {
skip_on_os("solaris")
skip_on_cran()
l <- movebankLogin("asdf", "asdf")
expect_error(getMovebankStudies(l), "There are no valid credentials")
expect_error(getMovebankData("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
expect_error(getMovebankStudy("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
expect_error(getMovebankAnimals("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
expect_error(getMovebankSensors("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
expect_error(getMovebankSensors(login = l), "There are no valid credentials")
expect_error(getMovebankSensors(123413, login = l), "There are no valid credentials")
expect_error(getMovebankData(123413, login = l), "There are no valid credentials")
expect_error(getMovebankData(123413, animalName = c("Mancha", "Yara"), login = l), "There are no valid credentials")
expect_error(getMovebankSensorsAttributes(123413, login = l), "There are no valid credentials")
expect_error(getMovebankSensorsAttributes("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
expect_error(getMovebankLocationData("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
expect_error(getMovebankNonLocationData("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
expect_error(getMovebankReferenceTable("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
})
test_that("without login", {
skip_on_os("solaris")
skip_on_cran()
expect_error(getMovebank("tag_type"), "There are no credentials")
expect_error(getMovebankSensors(), "There are no credentials")
expect_error(getMovebankStudies(), "There are no credentials")
expect_error(getMovebankData("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
expect_error(getMovebankStudy("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
expect_error(getMovebankAnimals("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
expect_error(getMovebankSensorsAttributes("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
expect_error(getMovebankLocationData("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
expect_error(getMovebankNonLocationData("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
expect_error(getMovebankReferenceTable("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
})
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.