R语言中如何正确读取末尾带分号的SQL查询文件

问题场景 #

需要将标准格式的SQL查询文件加载到R环境中调用，示例SQL内容如下：

SELECT EMP_ID, NAME FROM EMPLOYEE_TBL WHERE EMP_ID = '0000';

当前使用read_file类函数读取文件时，无法兼容SQL语句末尾自带的;结束符。此前考虑通过行位置判断：如果分号出现在倒数第一行或倒数第二行就跳过该分号，需要更通用、鲁棒的实现方案，要求可直接处理原生自带分号的SQL文件，不接受手动删除分号后重存文件的处理方式。

最优实现逻辑 #

不要硬编码判断分号所在行号，直接通过正则匹配移除SQL文本末尾的结束分号即可，该方案可以兼容末尾带任意数量空行、空格、制表符的场景，不会误删SQL语句内部（比如字符串字段值中）的合法分号，比行位置判断的适配性强很多。

无额外依赖的基础R实现 #

# 读取SQL文件内容，自动合并所有行
sql_raw <- paste(readLines("your_sql_path.sql", warn = FALSE), collapse = "\n")
# 移除文本最末尾的分号，兼容分号后带任意空白字符的场景
sql_clean <- sub(";\\s*$", "", sql_raw)

正则;\\s*$的匹配规则：定位到整个字符串的最末尾位置，匹配紧邻末尾的分号，以及分号后所有的空白字符（空格、换行、制表符），将匹配到的内容替换为空字符串即可得到无末尾分号的可执行SQL。

多SQL语句场景扩展 #

如果SQL文件内包含多条用分号分隔的语句，需要拆分调用时，可以用以下逻辑处理，自动过滤空语句：

# 按分号拆分语句，去除每条语句前后空白，过滤空内容
sql_statements <- strsplit(sql_raw, ";")[[1]] |> 
  trimws() |> 
  Filter(f = nzchar, x = _)

方案优势 #

• 不需要手动修改源SQL文件，直接在读取环节做清洗
• 不会出现行位置判断逻辑的适配问题：哪怕文件末尾多了十行空行，或者分号后带了一堆空格注释，都能正常处理
• 不会误删SQL语法内部的合法分号，仅处理整个文本末尾的结束分号

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