dir <- system.file("extdata", package = "rcdf")
rcdf_path <- file.path(dir, 'mtcars-pw.rcdf')
private_key <- file.path(dir, 'sample-private-key-pw.pem')
pw <- '1234'
temp_dir <- tempdir()
data <- merge_rcdf(
rcdf_files = rcdf_path,
decryption_keys = private_key,
passwords = pw,
merged_file_path = file.path(temp_dir, "merged.rcdf")
)
unlink(temp_dir, force = TRUE)
Run the code above in your browser using DataLab