if (FALSE) {
# select a minimal set of columns
out_file <- tempfile()
ebd <- auk_ebd(system.file("extdata/ebd-sample.txt", package = "auk"))
cols <- c("latitude", "longitude",
"group identifier", "sampling event identifier",
"scientific name", "observation count",
"observer_id")
selected <- auk_select(ebd, select = cols, file = out_file)
str(read_ebd(selected))
}
Run the code above in your browser using DataLab