string - 将多行 SQL 查询导入到单个字符串

Question

在 R ，如何将多行文本文件(包含 SQL)的内容导入到单个字符串？

sql.txt 文件如下所示:

SELECT TOP 100 
 setpoint, 
 tph 
FROM rates

我需要将该文本文件导入到 R 字符串中，如下所示:

> sqlString
[1] "SELECT TOP 100 setpoint, tph FROM rates"

这样我就可以像这样将其提供给 RODBC

> library(RODBC)
> myconn<-odbcConnect("RPM")
> results<-sqlQuery(myconn,sqlString)

我尝试了如下 readLines 命令，但它没有给出 RODBC 需要的字符串格式。

> filecon<-file("sql.txt","r")
> sqlString<-readLines(filecon, warn=FALSE)
> sqlString
[1] "SELECT TOP 100 "                              "\t[Reclaim Setpoint Mean (tph)] as setpoint, "
[3] "\t[Reclaim Rate Mean (tph)] as tphmean "       "FROM [Dampier_RC1P].[dbo].[Rates]"           
> 

Answer 1

多功能的paste()命令可以通过参数collapse=""来做到这一点:

lines <- readLines("/tmp/sql.txt")
lines
[1] "SELECT TOP 100 " " setpoint, "     " tph "           "FROM rates"     

sqlcmd <- paste(lines, collapse="")
sqlcmd
[1] "SELECT TOP 100  setpoint,  tph FROM rates"