Nothing
context("eol functions")
# test_that("eol works", {
# skip_on_cran()
# aa <- eol(name = 'Brassica oleracea', dataset = 'gisd', messages = FALSE)
# bb <- eol(name = 'Ciona intestinalis', dataset = 'mineps', messages = FALSE)
# cc <- eol(name = c('Lymantria dispar','Cygnus olor'), dataset = 'i3n', messages = FALSE)
# expect_is(aa, "data.frame")
# expect_equal(aa$searched_name, 'Brassica oleracea')
# expect_is(aa$searched_name, 'character')
# expect_equal(aa$db, "gisd")
# expect_is(bb, "data.frame")
# expect_equal(bb$searched_name, 'Ciona intestinalis')
# expect_is(bb$searched_name, 'character')
# expect_equal(bb$db, "mineps")
# expect_is(cc, "data.frame")
# expect_equal(cc$searched_name, c('Lymantria dispar','Cygnus olor'))
# expect_is(cc$searched_name, 'character')
# expect_equal(cc$db[1], "i3n")
# })
# test_that("fails well", {
# skip_on_cran()
# expect_error(eol(), "argument \"name\" is missing")
# expect_error(eol(""), "'name' must be longer than 0 characters")
# })
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.