# NOT RUN {
# 1. Using filename and dataverse
f1 <- get_file_by_name(
filename = "nlsw88.tab",
dataset = "10.70122/FK2/PPIAXE",
server = "demo.dataverse.org"
)
# 2. Using file DOI
f2 <- get_file_by_doi(
filedoi = "10.70122/FK2/PPIAXE/MHDB0O",
server = "demo.dataverse.org"
)
# 3. Two-steps: Find ID from get_dataset
d3 <- get_dataset("doi:10.70122/FK2/PPIAXE", server = "demo.dataverse.org")
f3 <- get_file(d3$files$id[1], server = "demo.dataverse.org")
# 4. Retrieve multiple raw data in list
f4_vec <- get_dataset(
"doi:10.70122/FK2/PPIAXE",
server = "demo.dataverse.org"
)$files$id
f4 <- get_file(f4_vec, server = "demo.dataverse.org")
length(f4)
# Write binary files
# (see `get_dataframe_by_name` to load in environment)
# The appropriate file extension needs to be assigned by the user.
writeBin(f1, "nlsw88.dta")
writeBin(f2, "nlsw88.dta")
writeBin(f4[[1]], "nlsw88.rds") # originally a rds file
writeBin(f4[[2]], "nlsw88.dta") # originally a dta file
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab