Как сохранить пароль в скрипте R в пакете «encryptr»?

Question

Я делаю это:

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")

Мне нужно это, чтобы за короткое время расшифровать много файлов.

Answer 1

Большое спасибо за вопрос. Сохранение пароля в сценарии не рекомендуется, так как в большинстве случаев это противоречит цели шифрования файла. Вы можете обойти эту преднамеренную функцию, хотя это не рекомендуется.

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)