R语言实现删除只读文件

在使用Rstudio对给定路径下的文件进行删除时，可以使用httr2包**file.remove()**函数进行删除，（注：需要将路径设为该文件的路径）；可是当文件为只读文件时（比如文件是从vx上最直接下载的，那么会默认为只读文件），则该函数不能删除。
此时需要先改变只读文件的文件属性，将只读文件改为可修改文件，然后再尝试删除

library(httr2)
# 获取当前工作目录
current_directory <- getwd()
setwd("D:/DeskTop/日报/新建文件夹/数据")

# 获取工作目录下的所有文件
files <- list.files(getwd())

# 获取文件权限信息
file_permissions <- file.info(files)$mode
# 找出只读的文件
readonly_files <- files[bitwAnd(file_permissions, strtoi("222", base = 8)) == 0]

# 尝试删除只读文件
for (file in readonly_files) {
  # Windows系统中改变文件属性
  Sys.chmod(file, mode="0777")
  # 尝试删除文件
  file.remove(file)
}
#再删除剩下的文件
files<-list.files(getwd())
file.remove(files)

这样就可以将只读文件删除了，大家可以去试试。