R中使用r2rtf合并不同页面方向RTF文件失败，求解决办法

问题根源 #

r2rtf包的assemble_rtf()函数中，landscape参数会强制统一所有合并页面的方向，无论单个文件之前用rtf_page(orientation = ...)设置了什么，都会被这个参数覆盖，这就是你合并后所有页面变成横向的原因。

解决方案：自定义RTF合并逻辑 #

绕过assemble_rtf()的强制方向设置，直接读取并拼接每个RTF文件的核心内容，保留各自的页面控制指令。以下是实现代码：

merge_rtf_preserve_layout <- function(input_paths, output_path) {
  # 读取第一个文件的完整RTF头部+内容（保留全局设置）
  first_file_content <- readLines(input_paths[1], warn = FALSE)
  
  # 处理后续文件：只保留页面内容，去掉重复的RTF头部和尾部闭合符
  rest_content <- lapply(input_paths[-1], function(path) {
    lines <- readLines(path, warn = FALSE)
    # 定位到第一个分页/页面尺寸指令的位置，跳过头部
    start_pos <- which(grepl("(\\\\page|\\\\paperw|\\\\paperh)", lines))[1]
    # 定位到最后一个尾部闭合符的位置，去掉它
    end_pos <- max(which(grepl("^\\}$", lines)))
    
    lines[start_pos:(end_pos - 1)]
  })
  
  # 拼接所有内容，补全最终的闭合符
  full_content <- c(first_file_content, unlist(rest_content), "}")
  # 写入输出文件
  writeLines(full_content, output_path)
}

使用方法 #

把你的文件路径列表传入这个函数即可：

# 假设file是你的输入RTF文件路径向量，output是输出路径
merge_rtf_preserve_layout(input_paths = file, output_path = output)

关键说明 #

1. 该函数会保留第一个文件的RTF全局设置（比如字体、编码），后续文件只追加页面内容，保留各自的\paperw/\paperh（页面尺寸，对应横竖方向）和\page分页指令。
2. 如果你的RTF文件页眉页脚格式特殊，可能需要微调start_pos的判断逻辑，确保截取到正确的内容起始点。
3. 确保所有输入RTF文件格式规范，没有损坏的控制指令。

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