Создание зашифрованных сжатых файлов из R

Question

Ive искал решение моего ответа в google и stackoveflow, но не повезло, надеюсь, что я не прошу что-то очевидное.

Возможно ли создание зашифрованных (с паролем) zip-файлов формы R? Скажем, я создаю кучу xlsx-файлов в R и размещая их в общей папке, я хотел бы захватить эти файлы и почерпнуть их с помощью пароля для enxcryption, поэтому, кто бы ни открывал файлы, необходимо было ввести предопределенный пароль. Мне нужно будет сделать это автоматически с R, так как я создаю много файлов, и сделать шифрование вручную не может быть и речи.

Заранее спасибо за любую помощь

Answer 1

Может быть, вы могли бы использовать что-то вроде этого:

zipPsw <- function(dir, fn=tempfile(fileext = ".zip"), psw, addFlags="") { 
    stopifnot(Sys.which("zip")!="") 
    zip(
    zipfile = fn, 
    files = path.expand(dir), 
    flags = paste0("-r --password ", psw, " ", addFlags) 
) 
    return(fn) 
} 
zipPsw("~/Documents/mysubdir", psw="mypass", addFlags="-j") 
# adding: foo.txt (152 bytes security) (stored 0%) 
# adding: bar.txt (152 bytes security) (deflated 63%) 
# [1] "C:\\Windows\\TEMP\\RtmpysNeBv\\file67703eed1b9d.zip"