👁
Size: a a a
👁
Ю
> files <- "dclust.R"
> zip("myarchive.zip", files, flags = "-r9XjP PASSWORD", extras = "", zip = Sys.getenv("R_ZIPCMD", "zip"))
updating: dclust.R (deflated 56%)
Ю
> # Как архивировать файлы с паролем в R
> # Какие есть файлы в текущем рабочем каталоге?
> files <- dir()
> files
[1] "xls_example.xlsx" "zip.R" "zip.Rproj"
> # Мой любимый и не очень надежный пароль
> password <- "MYBESTPASSWORD"
>
> # "xls_example.xlsx" -- файл, который хотим архивировать с паролем
> zip("myarchive.zip", files[1], flags = paste("-r9XjP", password),
+ extras = "", zip = Sys.getenv("R_ZIPCMD", "zip"))
adding: xls_example.xlsx (deflated 12%)
> dir()
[1] "myarchive.zip" "xls_example.xlsx" "zip.R" "zip.Rproj"
VK
ГД
AS
DP
AS
G
ГД
A
G
N
ГД
N
A
A
ИП
ВК