system.file("extdata/ebd-sample.txt", package = "auk") %>%
auk_ebd() %>%
auk_observer("obsr313215")
# alternatively, without pipes
ebd <- auk_ebd(system.file("extdata/ebd-sample.txt", package = "auk"))
auk_observer(ebd, observer = 313215)
Run the code above in your browser using DataLab