# NOT RUN {
Sys.setenv("DATAVERSE_SERVER" = "demo.dataverse.org")
Sys.setenv("DATAVERSE_KEY" = "c7208dd2-6ec5-469a-bec5-f57e164888d4")
# Download file from: https://demo.dataverse.org/file.xhtml?fileId=769385
dv <- get_dataverse("dataverse-client-r")
contents <- dataverse_contents(dv)
dataset_files(contents[[1]]) # Dataset contains 2 files
dataset_metadata(contents[[1]]) # Easier to query later
set <- get_dataset(contents[[1]]) # 1st dataset w/n dataverse
f <- get_file(set$files$id[2]) # 2nd file w/n dataset
# Check the *binary* representation of the file.
length(f)
head(f)
# Examine the plain-text representation.
tmp <- tempfile(fileext = "svg")
writeBin(as.vector(f), tmp)
svg_lines <- readLines(tmp)
head(svg_lines)
# }
Run the code above in your browser using DataLab