В
Size: a a a
В
AB
for
прилагается лютый быдлокод, который делает for
не конкуретноспособным. С другой, стороны, *apply
, Map
и прочая функциональщина также не всегда адекватно используется.AB
AB
Ю
# Как архивировать файлы с паролем в R (под Windows)
# Какие есть файлы в текущем рабочем каталоге?
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"
S
# Как архивировать файлы с паролем в R (под Windows)
# Какие есть файлы в текущем рабочем каталоге?
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"
AB
AB
ЕТ
S
ЕТ
a
ЕТ
a
ЕТ
S
ЕТ
ЕТ