Decrypt a data file
decryptFile(sourceFileName, targetFileName, privateKeyFileName)
Name of the file that must be decrypted.
Name of the file that will hold the unencrypted data.
Name of the file where the private key is stored.
Decrypts the data using the provided private key.
if (FALSE) {
generateKeyPair("public.key", "private.key")
data <- data.frame(x = runif(1000), y = 1:1000)
saveRDS(data, "data.rds")
encryptFile("data.rds", "data.rds.enc", "public.key")
decryptFile("data.rds.enc", "data2.rds", "private.key")
}