# NOT RUN {
# fliter to locations roughly in the Pacific Northwest
system.file("extdata/ebd-sample.txt", package = "auk") %>%
auk_ebd() %>%
auk_extent(extent = c(-125, 37, -120, 52))
# alternatively, without pipes
ebd <- auk_ebd(system.file("extdata/ebd-sample.txt", package = "auk"))
auk_extent(ebd, extent = c(-125, 37, -120, 52))
# }
Run the code above in your browser using DataLab