Nothing
context("ebirdhotspot")
test_that("ebirdhotspot works correctly", {
skip_on_cran()
expect_warning(out <- ebirdhotspot('L99381', max = 10, provisional = TRUE))
expect_is(out, "data.frame")
expect_is(out$comName, "character")
expect_warning(ebirdhotspot('L99381'))
expect_warning(expect_error(ebirdhotspot(locID = 'L99381', back = 40)))
})
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.