如何修复R语言read_text_file函数的条件判断执行逻辑问题？

原函数的核心问题 #

• 两个if语句均直接使用return，导致当withComments=FALSE时函数直接返回，withBlanks的判断逻辑永远无法执行
• 多次调用readLines()重复读取文件，既降低效率也可能引发不必要的IO问题
• 空行匹配的正则^$仅能匹配完全无字符的行，无法过滤包含空白字符（空格、制表符等）的行，不符合需求

修正后的函数代码 #

read_text_file <- function(textFilePath, withBlanks = TRUE, withComments = TRUE){
  # 校验输入参数类型
  if(!is.character(textFilePath) || length(textFilePath) != 1){
    stop("`textFilePath` must be a character of length 1.")
  }
  
  # 一次性读取所有行，避免重复IO操作
  all_lines <- readLines(textFilePath)
  
  # 根据withComments参数过滤注释行（以#开头的行）
  if(!withComments){
    all_lines <- grep("^#", all_lines, invert = TRUE, value = TRUE)
  }
  
  # 根据withBlanks参数过滤空行（含仅空白字符的行）
  if(!withBlanks){
    all_lines <- grep("^\\s*$", all_lines, invert = TRUE, value = TRUE)
  }
  
  # 返回最终处理后的行向量
  return(all_lines)
}

修正逻辑说明 #

1. 一次性读取文件：将文件内容读取到变量all_lines中，后续所有过滤操作都基于这个变量，避免重复读取文件
2. 分步过滤：先处理注释行过滤，再处理空行过滤，两个条件的逻辑都能正常执行，支持四种参数组合（两个参数的TRUE/FALSE组合）
3. 修正空行正则：使用^\\s*$匹配所有仅含空白字符（空格、制表符、换行符等）的行，更符合“空行”的实际定义
4. 保留参数默认值：维持原函数的默认参数设置，保证兼容性

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