if (FALSE) {
# retrieve your service document
d <- service_document()
# create a list of metadata
metadat <- list(title = "My Study",
creator = "Doe, John",
description = "An example study")
# create the dataset in first dataverse
dat <- initiate_sword_dataset(d[[2]], body = metadat)
# publish dataset
publish_sword_dataset(dat)
# delete a dataset
delete_dataset(dat)
}
Run the code above in your browser using DataLab