if (FALSE) {
# retrieve your service document (dataverse list)
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)
# add files to dataset
tmp <- tempfile(fileext = ".csv")
write.csv(iris, file = tmp)
add_file(dat, file = tmp)
# publish dataset
publish_dataset(dat)
}
Run the code above in your browser using DataLab