如何在R中找到`show_query（）`的源代码？

Question

我想看看如何将一种编程语言翻译成另一种编程语言。

让我们举个例子：

q1 <- tbl(con, "bank") %>%
  group_by(month_idx, year, month) %>%
  summarise(
    subscribe = sum(ifelse(term_deposit == "yes", 1, 0)),
    total = n())
show_query(q1)

您会得到

<SQL>
SELECT "month_idx", "year", "month", SUM(CASE WHEN ("term_deposit" = 'yes') THEN (1.0) ELSE (0.0) END) AS "subscribe", COUNT(*) AS "total"
FROM ("bank") 
GROUP BY "month_idx", "year", "month"

我认为这可能是一个很好的起点，因此我决定研究show_query()的源代码。

> library(dplyr)
> show_query
function (x, ...) 
{
    UseMethod("show_query")
}
<bytecode: 0x0000000015281840>
<environment: namespace:dplyr>

我尝试了多种方式，包括getAnywhere()等，都无济于事。

有什么建议吗？