## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----libraries, warning=FALSE-------------------------------------------------
# devtools::install_github("NCEAS/metajam")
library(metajam)  
library(readr)
library(purrr)

## ----constants----------------------------------------------------------------
# Directory to save the data set
path_folder <- "./Soil_bulk"

# URL to read the search results stored as a csv on Google Drive
csv_search_results_url <- "https://drive.google.com/uc?export=download&id=1WTLP2BcXCXmUyv4kmntyhuPfrBNdPIqV"


## ----download, eval=FALSE-----------------------------------------------------
# # Create the local directory to store data sets
# dir.create(path_folder, showWarnings = FALSE)
# 
# # Read the data listing from Google Drive: https://drive.google.com/open?id=1WTLP2BcXCXmUyv4kmntyhuPfrBNdPIqV
# data_listing <- read_csv(csv_search_results_url)
# 
# 
# ### Download the data and metadata ----
# 
# # Create the list of unique dois
# dois <- unique(data_listing$identifier)
# 
# # batch download the datasets
# data_folders <- map(dois, ~download_d1_data_pkg(.x, path_folder))