r - 由于 EU-GDPR，如何保护/加密 RData 文件中的 R 对象

Question

我想用强加密算法保护我的 RData 文件的内容
因为它们可能包含敏感的个人数据，不得
由于(法律)欧盟 GDPR 要求而披露。

我怎样才能从 R 中做到这一点？

我想避免在创建 RData 文件后进行第二个手动步骤来加密它们，以尽量减少忘记它或忽略任何 RData 文件的风险。

在这种情况下，我正在使用 Windows...

Answer 1

library(openssl)

x <- serialize(list(1,2,3), NULL)

passphrase <- charToRaw("This is super secret")
key <- sha256(passphrase)

encrypted_x <- aes_cbc_encrypt(x, key = key)

saveRDS(encrypted_x, "secret-x.rds")

encrypted_y <- readRDS("secret-x.rds")

y <- unserialize(aes_cbc_decrypt(encrypted_y, key = key))

您需要处理 secret 管理(即 key )，但这个通用的习惯用法应该有效(稍微防弹一下)。