正如 Arun 在评论中指出的那样,您可以只setDT
在dbGetQuery
结果上使用。
此外,在我的包dwtools中还有一个辅助函数可用,它在需要时将此功能扩展为自动setkey
。这被设计为在链接时很有用。它还统一了与其他数据库供应商的接口,因此您可以使用不同的数据库链接 data.table。
简单的选择用法如下所示:
my_dt = db("SELECT * FROM eqtl")
# to setkey use
db("SELECT * FROM eqtl", key="mykeycol")
包装手册中的大量扩展示例:
jj_aggr = quote(list(amount=sum(amount), value=sum(value)))
r <- db("sales",key="geog_code" # read fact table from db
)[,eval(jj_aggr),keyby=c("geog_code","time_code") # aggr by geog_code and time_code
][,db(.SD) # write to db, auto.table.name
][,db("geography",key="geog_code" # read lookup geography dim from db
)[.SD # left join geography
][,eval(jj_aggr), keyby=c("time_code","geog_region_name")] # aggr
][,db(.SD) # write to db, auto.table.name
][,db("time",key="time_code" # read lookup time dim from db
)[.SD # left join time
][, eval(jj_aggr), keyby=c("geog_region_name","time_month_code","time_month_name")] # aggr
][,db(.SD) # write to db, auto.table.name
]
它将从多个数据库中读取数据、连接、聚合,将中间结果保存到多个数据库。