# NOT RUN {
# 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