R语言中如何按指定自定义格式将列表逐行写入本地文件

• 语法错误：sink("File1) 位置的字符串未闭合双引号，会直接触发R语法解析失败，代码无法正常运行。
• 数据处理逻辑错误：直接将list1/list2传入paste0时，未对列表内层的数值向量做字符串拼接处理，最终输出既没有外层括号，也无法将所有元素整合为逗号分隔的连续字符串。
• 格式不匹配：输出内容完全不符合「前缀=(逗号分隔元素)」的结构要求。

核心逻辑：先将列表内层的数值向量拼接为逗号分隔的单字符串，再按要求拼接前缀和外层括号，最后批量写入文件。

# 定义通用格式化函数，适配后续多列表的连续写入场景
format_list_line <- function(prefix, target_list) {
  # 取出列表内的所有数值，拼接为逗号分隔的字符串
  element_str <- paste(unlist(target_list), collapse = ", ")
  # 按要求拼接为完整的单行内容
  paste0(prefix, "=(", element_str, ")")
}

# 生成所有需要写入的内容行
write_content <- c(
  format_list_line("Content_before", list1),
  format_list_line("Content_before2", list2)
)

# 直接写入本地文件file1
writeLines(write_content, con = "file1")

如果需要沿用sink重定向的实现逻辑，可替换为如下写法，效果完全一致：

sink("file1")
cat(write_content, sep = "\n")
sink()

注：较长的列表内容在文本编辑器中会显示为多行自动换行，文件内每个列表实际对应1个独立的物理行，完全符合格式要求。后续新增列表写入时，只需调用format_list_line生成对应行字符串，追加到write_content向量中即可复用相同格式。

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