Compress and encrypt a folder
compressAndEncryptFolder(sourceFolder, targetFileName, publicKeyFileName)
Name of the folder that must be encrypted.
Name of the file that will hold the encrypted data.
Name of the file where the public key is stored.
Compresses all files in a folder and its subfolders, and encrypts using the provided public key.
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")
}