diff --git a/R/ebirdnotable.R b/R/ebirdnotable.R index 966b452..7c0639f 100644 --- a/R/ebirdnotable.R +++ b/R/ebirdnotable.R @@ -50,6 +50,7 @@ #' @return "locationPrivate": TRUE if location is not a birding hotspot #' automatic filters or a regional viewer, FALSE otherwise #' @return "subId": submission ID +#' @return "exoticCategory": Exotic category #' @return "subnational2Code": county code (returned if simple=FALSE) #' @return "subnational2Name": county name (returned if simple=FALSE) #' @return "subnational1Code": state/province ISO code (returned if simple=FALSE) diff --git a/man/ebirdnotable.Rd b/man/ebirdnotable.Rd index 4dd9775..937bb69 100644 --- a/man/ebirdnotable.Rd +++ b/man/ebirdnotable.Rd @@ -93,6 +93,8 @@ A data.frame containing the collected information: "subId": submission ID +"exoticCategory": Exotic category + "subnational2Code": county code (returned if simple=FALSE) "subnational2Name": county name (returned if simple=FALSE) diff --git a/tests/testthat/test-ebirdnotable.R b/tests/testthat/test-ebirdnotable.R index 6ecf1c6..31f58e4 100644 --- a/tests/testthat/test-ebirdnotable.R +++ b/tests/testthat/test-ebirdnotable.R @@ -9,7 +9,7 @@ test_that("ebirdnotable works correctly", { expect_is(out$comName, "character") expect_is(out$howMany, "integer") - expect_equal(NCOL(ebirdnotable(region='US-OH', regtype='subnational1')), 13) + expect_equal(NCOL(ebirdnotable(region='US-OH', regtype='subnational1')), 14) simpler <- ebirdnotable(lat=42, lng=-70, max = 40, simple = TRUE) # lesssimpler <- ebirdnotable(lat=42, lng=-70, max = 40, simple = FALSE)