Define a filter for the eBird Basic Dataset (EBD) based on a set of
counties This function only defines the filter and, once all filters have
been defined, auk_filter() should be used to call AWK and perform the
filtering.
auk_county(x, county, replace = FALSE)auk_ebd or auk_sampling object; reference to file created by
auk_ebd() or auk_sampling().
character; counties to filter by. eBird uses county codes
consisting of three parts, the 2-letter ISO country code, a 1-3 character
state code, and a county code, all separated by a dash. For example,
"US-NY-109" corresponds to Tompkins, NY, US. The easiest way to find a
county code is to find the corresponding explore region page and look at the URL.
logical; multiple calls to auk_county() are additive,
unless replace = FALSE, in which case the previous list of states to
filter by will be removed and replaced by that in the current call.
An auk_ebd object.
It is not possible to filter by both county as well as country or
state, so calling auk_county() will reset these filters to all countries
and states, and vice versa.
This function can also work with on an auk_sampling object if the user only
wishes to filter the sampling event data.
Other filter:
auk_bbox(),
auk_bcr(),
auk_breeding(),
auk_complete(),
auk_country(),
auk_date(),
auk_distance(),
auk_duration(),
auk_extent(),
auk_filter(),
auk_last_edited(),
auk_observer(),
auk_project(),
auk_protocol(),
auk_species(),
auk_state(),
auk_time(),
auk_year()
# choose tompkins county, ny, united states
system.file("extdata/ebd-sample.txt", package = "auk") %>%
auk_ebd() %>%
auk_county("US-NY-109")
#> Input
#> EBD: /private/var/folders/mg/qh40qmqd7376xn8qxd6hm5lwjyy0h2/T/RtmpAo06fk/temp_libpath15c811d2fb75b/auk/extdata/ebd-sample.txt
#>
#> Output
#> Filters not executed
#>
#> Filters
#> Species: all
#> Countries: all
#> States: all
#> Counties: US-NY-109
#> BCRs: all
#> Bounding box: full extent
#> Years: all
#> Date: all
#> Start time: all
#> Last edited date: all
#> Protocol: all
#> Project code: all
#> Duration: all
#> Distance travelled: all
#> Records with breeding codes only: no
#> Complete checklists only: no
# alternatively, without pipes
ebd <- auk_ebd(system.file("extdata/ebd-sample.txt", package = "auk"))
auk_county(ebd, "US-NY-109")
#> Input
#> EBD: /private/var/folders/mg/qh40qmqd7376xn8qxd6hm5lwjyy0h2/T/RtmpAo06fk/temp_libpath15c811d2fb75b/auk/extdata/ebd-sample.txt
#>
#> Output
#> Filters not executed
#>
#> Filters
#> Species: all
#> Countries: all
#> States: all
#> Counties: US-NY-109
#> BCRs: all
#> Bounding box: full extent
#> Years: all
#> Date: all
#> Start time: all
#> Last edited date: all
#> Protocol: all
#> Project code: all
#> Duration: all
#> Distance travelled: all
#> Records with breeding codes only: no
#> Complete checklists only: no