如何将密码保存在包“encryptr”中的脚本 R 中?

How to save the password in script R in package ‘encryptr’?

我这样做:

library(encryptr)
genkeys()

我创建了密码:0)]30l^8

password<-"0)]30l^8"
data(gp)
write.csv(gp, "gp.csv")
encrypt_file("gp.csv")

我的问题是:如何在 decrypt_file("gp.csv.encryptr.bin", file_name = "gp2.csv")

上自动输入密码

我需要这个来在短时间内解密很多文件。

非常感谢您的提问。不建议在脚本中保存密码,因为在大多数情况下这会破坏加密文件的目的。虽然不推荐,但您可以解决此有意的功能。

password<-"0)]30l^8"
.crypt = readRDS("gp.csv.encryptr.bin") # in file
zz = file("gp2.csv", "wb") # out file
openssl::decrypt_envelope(.crypt$data, .crypt$iv, .crypt$session, key = "id_rsa", password = password) %>%
  writeBin(zz)
close(zz)