使用R密码保护文件

Question

我正在使用openxlsx包创建大量带有条件格式的excel文件。在将这些文件发送给我的同事之前，我需要为这些文件应用密码。

目前，我使用zip（）和for循环来保护文件的密码：

#set password
password <- paste0(agency_list[a])

#change working directory
setwd(paste0("C:/Users/Documents/Monthly Reports/Staging/",Sys.Date(),"/",agency_list[a]))

#loop through agency folder and zip all files inside with password
zip(paste0(,agency_list[a],"_Staff_Utilization_",format(Sys.Date(),'%Y_%m_%d'),".zip"), files=list.files(),flags = paste("--password", password))

问题是我的同事的电子邮件反病毒软件有时会删除这些文件。有没有办法让我可以批量保护这些文件，而不是在使用openxlsx生成文件时单独打开它们？