# years to filter to
years <- c(2010, 2012)
# set up filter
system.file("extdata/ebd-sample.txt", package = "auk") %>%
auk_ebd() %>%
auk_year(year = years)
# alternatively, without pipes
ebd <- auk_ebd(system.file("extdata/ebd-sample.txt", package = "auk"))
auk_year(ebd, years)
# filter to may and june of 2010 and 2012
system.file("extdata/ebd-sample.txt", package = "auk") %>%
auk_ebd() %>%
auk_year(year = c(2010, 2012)) %>%
auk_date(date = c("*-05-01", "*-06-30"))
Run the code above in your browser using DataLab