# NOT RUN {
# download file from:
# https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/ARKOTI
monogan <- get_dataverse("monogan")
monogan_data <- dataverse_contents(monogan)
d1 <- get_dataset("doi:10.7910/DVN/ARKOTI")
f <- get_file(d1$files$datafile$id[3])
# check file metadata
m1 <- get_file_metadata("constructionData.tab", "doi:10.7910/DVN/ARKOTI")
m2 <- get_file_metadata(2437257)
# retrieve file based on DOI and filename
f2 <- get_file("constructionData.tab", "doi:10.7910/DVN/ARKOTI")
f2 <- get_file(2692202)
# retrieve file based on "dataverse_file" object
flist <- dataset_files(2692151)
get_file(flist[[2]])
# read file as data.frame
if (require("rio")) {
tmp <- tempfile(fileext = ".dta")
writeBin(f, tmp)
str(dat <- rio::import(tmp, haven = FALSE))
# check UNF match
#if (require("UNF")) {
# unf(dat) %unf% d1$files$datafile$UNF[3]
#}
}
# }
Run the code above in your browser using DataLab