如何在字符串中捕获 dplyr 查询答案

【问题标题】：How to catch a dplyr query in a string如何在字符串中捕获 dplyr 查询
【发布时间】：2017-09-01 14:35:33
【问题描述】：

当使用dplyr包操作数据库中的表时，它会创建一个可以被show_query函数查看的sql语句。除非您调用head、compute、collect 或collapse，否则不会执行此sql 语句。在某些情况下，dplyr生成的sql语句比执行更重要（例如：为某些数据库包中尚未实现的操作创建函数，如copy (subquery) into file_name;）

我想知道：如何获取dplyr创建的sql并放到字符串中？

【问题讨论】：

标签： r dplyr

【解决方案1】：

好的。查看dbplyr源码，发现dbplyr::sql_render返回表sql语句，可以用来复合另一个sql：

sql_query = dbplyr::sql_render(tbl_table)

【讨论】：

你说得对 Fabio，我看到的关于 sql_render() 的唯一一件事是它没有经过 SQL 优化器，因此它可能返回与 show_query() 不同的结果
我测试了一些非常广泛且易于优化的查询，dbplyr::sql_render() 和 dvantwisk 提出的show_query() 解决方案没有区别，除了dbplyr::sql_render() 的输出格式更好。

【解决方案2】：

show_query() 将 dplyr 生成的 sql 查询输出为诊断消息。如果对象res 是使用dplyr 的sql 查询的结果，则可以使用capture.output() 提取sql 查询并将其强制转换为字符向量。查询的每一行新行都作为一个元素存储在我们的output 向量中，因此paste(tail(output, -1),collapse="") 可用于将结果作为您想要的长度为一个字符向量。（我正在删除最终输出的输出向量的第一个元素，因为它似乎只是不必要的标签“”。）

## Capture 
output <- capture.output(res %>% show_query(), type="message")
## Concatenate character vector to a one length character vector
final_output <- paste(tail(output, -1), collapse="")

【讨论】：