使用writeLines写入隐藏文件遇权限拒绝错误，求程序化解决方案

问题根源 #

Windows系统下，隐藏文件的隐藏属性会限制直接写入；Linux/macOS下以.开头的隐藏文件本身无写入限制，报错多是目录权限或文件锁定问题。以下分系统给出程序化解决方案：

Windows系统处理方式 #

Windows的隐藏属性可通过系统命令attrib修改，我们可以先解除隐藏再写入，写完再恢复隐藏：

• 先取消目标文件的隐藏属性（如果存在），写入后重新设置隐藏

# 目标隐藏文件路径
hidden_path <- ".my_hidden_file.txt"

# 若文件已存在且隐藏，先取消隐藏属性
if (file.exists(hidden_path)) {
  shell(paste0('attrib -h "', hidden_path, '"'))
}

# 写入内容
writeLines(c("第一行内容", "第二行内容"), hidden_path)

# 重新设置文件为隐藏
shell(paste0('attrib +h "', hidden_path, '"'))

• 也可以先写入普通文件，再改名并设置隐藏属性（适合创建新隐藏文件）

# 先写入临时普通文件
writeLines(c("测试内容"), "temp_normal_file.txt")

# 改名为隐藏文件名
file.rename("temp_normal_file.txt", ".new_hidden_file.txt")

# 设置隐藏属性
shell('attrib +h ".new_hidden_file.txt"')

Linux/macOS系统处理方式 #

这类系统的隐藏文件仅需文件名以.开头，直接写入即可。若报错，优先检查目录权限或删除旧文件后重试：

hidden_path <- ".my_hidden_file.txt"

# 检查目录是否有写入权限（返回0为有权限）
if (file.access(dirname(hidden_path), 2) != 0) {
  stop("目标目录无写入权限")
}

# 若文件已存在，可先删除再写入（按需选择）
if (file.exists(hidden_path)) {
  file.remove(hidden_path)
}

# 直接写入内容
writeLines(c("Linux/macOS下的隐藏文件内容"), hidden_path)

跨平台通用封装函数 #

写一个自动识别系统的函数，无需手动区分系统：

write_to_hidden <- function(content, file_path) {
  os_type <- Sys.info()["sysname"]
  
  if (os_type == "Windows") {
    # Windows下先解隐藏、写入、再设隐藏
    if (file.exists(file_path)) {
      shell(paste0('attrib -h "', file_path, '"'))
    }
    writeLines(content, file_path)
    shell(paste0('attrib +h "', file_path, '"'))
  } else {
    # Linux/macOS直接处理
    if (file.access(dirname(file_path), 2) != 0) {
      stop("目标目录无写入权限")
    }
    writeLines(content, file_path)
  }
}

# 使用示例
write_to_hidden(c("跨平台测试内容", "第二行"), ".cross_platform_hidden")

内容的提问来源于stack exchange，提问作者PDe