如何按条件筛选R脚本文件本身的指定行？

注意：以下操作针对R脚本文件本身的行筛选，不适用于数据框、向量等R内存对象的行筛选

直接用R基础函数即可完成操作，无需安装第三方扩展包，具体操作逻辑如下：

1. 首先用readLines()函数读取目标R脚本的全部内容，返回的字符向量中每个元素对应原脚本的一行：

# 读取脚本，warn = FALSE可屏蔽文件末尾无换行符的无关警告
script_content <- readLines("目标脚本路径.R", warn = FALSE)

2. 按需求筛选对应行：

• 筛选所有奇数行：

odd_lines <- script_content[seq(1, length(script_content), by = 2)]

• 筛选所有偶数行：

even_lines <- script_content[seq(2, length(script_content), by = 2)]

• 按自定义规则筛选（比如筛选包含library关键词的行）：

matched_lines <- script_content[grepl("library", script_content)]

3. 筛选完成后如果需要保存为新文件，调用writeLines()即可：

writeLines(odd_lines, con = "筛选结果输出路径.R")

注意事项 #

• 路径如果使用相对路径，需提前确认当前工作目录和脚本存放目录一致，也可以直接填写绝对路径避免找不到文件
• 若脚本包含中文等非ASCII字符，读取时可指定编码：readLines("目标脚本路径.R", warn = FALSE, encoding = "UTF-8")

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