data-raw/assemble.R

In jsta/nesRdata: National Eutrophication Survey Data

# Pull top-level data from local source and store in package
nes <- nes_load(version_id = "5")$nes_data

# Pull top-level data from dataone and store in package
# nes_get("1")
# nes <- nes_load("1")$nes_data

usethis::use_data(nes, overwrite = TRUE)

dir.create(file.path("inst", "extdata"), showWarnings = FALSE)
write.csv(nes, file.path("inst", "extdata", "nes.csv"), row.names = FALSE)