8

我正在使用一个使用长 SQL 字符串的 R 脚本，我想保持查询相对没有其他标记，以便允许在编辑器和应用程序之间复制和粘贴。我还希望能够跨行拆分查询以提高可读性。

在 RODBC 文档中，该paste函数用于从单独的块中构建查询，但我更喜欢不那么笨拙且引号和逗号更少的东西。谢谢你的帮助。

4

5 回答 5

13

如果你像我一样是一名老 C 程序员，你可能会喜欢使用 sprintf()。

借用伊恩的例子：

y<-"y1"
x<-"somethingorother"
query <- sprintf(
'SELECT DISTINCT x AS %s,
                 y AS %s,
 FROM tbl
 WHERE id=%%s
 AND num=%%d', x, y)

产量：

> cat(query,"\n")
SELECT DISTINCT x AS somethingorother,
                 y AS y1,
 FROM tbl
 WHERE id=%s
 AND num=%d
于 2009-10-27T18:21:36.680 回答
8

您可以覆盖 %+% 运算符以获得更好的字符串连接语法：

'%+%' <- function(x,y) paste(x,y,sep="")

y<-"y1"
x<-"somethingorother"
query<-
'SELECT DISTINCT x AS ' %+% x %+%',\n'    %+%
'                y AS ' %+% y %+% '\n'    %+%
' FROM tbl
 WHERE id=%s
 AND num=%d'

cat(query,"\n")

产量：

> cat(query,"\n")
SELECT DISTINCT x AS somethingorother,
                y AS y1
 FROM tbl
 WHERE id=%s
 AND num=%d
于 2009-10-27T15:25:31.620 回答
8

“包含”长 SQL 查询的一种优雅方式是将其保存在单独的.sql文件中。最好在某个可以突出显示语法的地方，RStudio 中的文本文件将完成这项工作。然后，您可以在您的主 R 脚本中将文件读入一个字符串，并使用许多“命名”类型的解决方案之一来填充变量sprintf，例如infuser。

.sql

select *
from mytable
where id = {{a}} 
and somevar = {{b}}

.R

library(readr)
library(infuser)

query <- read_file("query.sql") %>%
         infuse(a = 1, b = 2)
于 2016-10-10T19:57:14.113 回答
3

我建议只使用纯字符串，而不是将变量值嵌入其中。请改用占位符。

sql <- "SELECT foo FROM bar
    WHERE col1 = ?
    AND col2 = ?
    ORDER BY yomama"

我不确定双引号是否是在 R 代码中嵌入多行字符串的最佳方式（有类似​​ here-docs 的东西吗？），但它确实有效，与 Java 不同。

是否有某些原因您不想发送"\n"或发送"\t"到您的数据库？它们在 SQL 中应该没问题。

于 2009-10-29T16:52:01.367 回答
1

我最终只是在运行它之前用sql <- gsub("\n","",sql)and击中了 sql 字符串。sql <- gsub("\t","",sql)字符串本身可以根据需要长，但不包含任何连接标记。

于 2009-10-28T16:36:49.737 回答