Given complete dataset objects in Neotoma (must have used
get_datasets() or get_downloads()), return the dataset
DOI for the record.
# S4 method for class 'sites'
doi(x)data.frame object with DOIs information.
{
tryCatch({
ds <- get_datasets(1)
doi(ds)
}, error = function(e) {
message("Neotoma server not responding. Try again later.")
})
}
#> siteid collunitid datasetid doi
#> 1 1 1 1 10.21233/9twd-s570
#> 2 1 1 1 10.21233/n3159g
#> 3 1 1 1 10.21233/n3f596