data-raw/lef_anole.R

In karenezhao/alohakez:

## code to prepare `lef_anole` dataset goes here

# Attach packages
library(usethis)
library(metajam)

# Save link location for the data package:
lef_url <- "https://portal.edirepository.org/nis/dataviewer?packageid=knb-lter-luq.5.347700&entityid=4aacbd7e95d37636d362ee2752382c74"

# Download the data package with metajam
lef_download <- download_d1_data(data_url = lef_url, path = tempdir(), dir_name="lef_anole")

# Read in data
lef_files <- read_d1_files(lef_download)
lef_anole <- lef_files$data

usethis::use_data(lef_anole, overwrite = TRUE)