tests/testthat/test-ebirdhotspot.R

context("ebirdhotspot")

test_that("ebirdhotspot works correctly", {
  skip_on_cran()
  
  out <- ebirdhotspot('L99381', max=10, provisional=TRUE)
  expect_is(out, "data.frame")
  expect_is(out$comName, "character")
  expect_silent(ebirdhotspot('L99381'))
  
  expect_warning(ebirdhotspot(locID = 'L99381', back = 40))
})

Try the rebird package in your browser

Any scripts or data that you put into this service are public.

rebird documentation built on May 29, 2017, 7:12 p.m.