Decrypt and decompress a folder
decryptAndDecompressFolder(sourceFileName, targetFolder, privateKeyFileName)
Name of the file that must be decrypted.
Name of the folder that will hold the unencrypted data.
Name of the file where the private key is stored.
Decrypts the data using the provided private key and extracts all files to a folder.
if (FALSE) {
generateKeyPair("public.key", "private.key")
# Create a folder with some data
dir.create("test")
data <- data.frame(x = runif(1000), y = 1:1000)
saveRDS(data, "test/data1.rds")
saveRDS(data, "test/data2.rds")
compressAndEncryptFolder("test", "data.zip.enc", "public.key")
decryptAndDecompressFolder("data.zip.enc", "test2", "private.key")
}