如何实际查看由DBI:：dbWriteTable生成的原始查询？

我想知道是否有办法检索

dbWriteTable

发送到DBMS的SQL查询。例如，对于下面的示例。有没有办法得到这个查询

library(DBI)

con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "mtcars", mtcars[1:10, ])
dbDisconnect(con)

库（DBI）
conRSQLite

的开发版本将很快进入CRAN，它使用了

DBI:：sqlCreateTable（）

。此函数返回创建特定表的SQL：

con <- dbConnect(RSQLite::SQLite(), ":memory:")
sqlCreateTable(con, "mtcars", mtcars[1:10, ])
dbDisconnect(con)

con