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