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
dat <- initiate_sword_dataset("mydataverse", body = metadat)
# add files to dataset
tmp <- tempfile()
write.csv(iris, file = tmp)
f <- add_file(dat, file = tmp)
# delete a file
ds <- dataset_statement(dat)
delete_file(ds$files[[1]]$id)
# delete a dataset
delete_dataset(dat)
}
Run the code above in your browser using DataLab