让我们看一下中的示例?sql_variant
:
我们为聚合函数定义了一个新的翻译函数,从默认函数扩展:
postgres_agg <- sql_translator(.parent = base_agg,
cor = sql_prefix("corr"),
cov = sql_prefix("covar_samp"),
sd = sql_prefix("stddev_samp"),
var = sql_prefix("var_samp")
)
然后我们定义了一个新的变体,它由 3 种不同类型的翻译函数(这里是 2)组成:
postgres_var <- sql_variant(
base_scalar,
postgres_agg
)
translate_sql(cor(x, y), variant = postgres_var)
# <SQL> COR("x", "y")
translate_sql(sd(income / years), variant = postgres_var)
# <SQL> SD("income" / "years")
这些看起来没有翻译给我,不是"CORR"
吗"STDDEV_SAMP"
?
# Original comment:
# Any functions not explicitly listed in the converter will be translated
# to sql as is, so you don't need to convert all functions.
translate_sql(regr_intercept(y, x), variant = postgres_var)
# <SQL> REGR_INTERCEPT("y", "x")
这个行为符合预期,就像其他 2 一样。
另一方面,默认翻译功能起作用,请参阅:
translate_sql(mean(x), variant = postgres_var)
#<SQL> avg("x") OVER ()
这是一个错误吧?还是我错过了什么?
我的目标是创建一些变体Oracle
并以下列方式使用它,然后用于更复杂的功能(示例具有SQLite
可重现性):
con <- DBI::dbConnect(RSQLite::SQLite(), path = ":memory:")
copy_to(con, cars, "cars")
con %>% tbl("cars") %>% summarize(dist = group_concat(dist)) # works as expected, as we're stealing the keyword from sqlite directly
sqlite_variant <- sql_variant(aggregate=sql_translator(.parent = base_agg,gpc = sql_prefix("group_concat")))
con %>% tbl("cars") %>% summarize(dist = gpc(dist)) # how do I make this work ?
编辑:
dplyr
一个赏金后来仍然没有解决方案,我已经直接在/页面中交叉发布了这个问题,dbplyr
github
我不确定它是否已经或会引起注意,但如果我(或其他人)没有及时更新,检查这个网址:https ://github.com/tidyverse/dplyr/issues/3117