Nothing
# context("Test for lets.iucn")
#
# sp <- c("Musonycteris harrisoni", "Ailuropoda melanoleuca",
# "Cebus flavius")
#
#
# test_that("lets.iucn works fine, one species", {
# skip_on_cran()
# testiucn <- lets.iucn("Panthera tigris")
# expect_equal(class(testiucn), "data.frame")
# testiucn2 <- lets.iucn("Panthera onca")
# expect_equal(class(testiucn2), "data.frame")
# })
#
# test_that("lets.iucn works fine, one species, count = TRUE", {
# skip_on_cran()
# testiucn <- lets.iucn("Panthera tigris", count = TRUE)
# expect_equal(class(testiucn), "data.frame")
# testiucn2 <- lets.iucn("Panthera onca", count = TRUE)
# expect_equal(class(testiucn2), "data.frame")
# })
#
#
# test_that("lets.iucn works fine, multiple species", {
# skip_on_cran()
# testiucn <- lets.iucn(sp)
# expect_equal(class(testiucn), "data.frame")
# testiucn2 <- lets.iucn(sp, count = TRUE)
# expect_equal(class(testiucn2), "data.frame")
# expect_equal(testiucn, testiucn2)
# })
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.