r - Dbplyr:组合两个表并将结果添加到数据库中而不将它们加载到内存中
问题描述
请查看帖子末尾的简单脚本。我有一个包含两个表的数据库,我使用 union_all 将它们组合在一起。有没有办法在不收集数据的情况下将结果添加到数据库中,即将它们加载到内存中?非常感谢!
library(tidyverse)
library(DBI) # main DB interface
library(dbplyr) # dplyr back-end for DBs
#>
#> Attaching package: 'dbplyr'
#> The following objects are masked from 'package:dplyr':
#>
#> ident, sql
library(RSQLite)
##create the databases
df1 <- tibble(x=1:20,y=rep(c("a", "b"), 10))
df2 <- tibble(x=101:120,y=rep(c("d", "e"), 10))
con <- dbConnect(drv=RSQLite::SQLite(), dbname="db.sqlite")
dbWriteTable(con,"mydata1",df1, overwrite=T)
dbWriteTable(con,"mydata2",df2, overwrite=T)
dbDisconnect(con) # closes our DB connection
con <- dbConnect(drv=RSQLite::SQLite(), dbname="db.sqlite")
mydb1 <- tbl(con, "mydata1")
mydb2 <- tbl(con, "mydata2")
mydb12 <- union_all(mydb1,mydb2)
#is there a way to add the union of mydb1 and mydb2 to the database without explicitly collecting the data?
由reprex 包于 2020-12-24 创建(v0.3.0)
解决方案
由于您正在处理 SQL,因此只需使用 SQL。
collect(mydb1) %>%
nrow()
# [1] 20
DBI::dbExecute(con, "insert into mydata1 select * from mydata2")
# [1] 20
collect(mydb1) %>%
nrow()
# [1] 40
collect(mydb1) %>%
tail()
# # A tibble: 6 x 2
# x y
# <int> <chr>
# 1 115 d
# 2 116 e
# 3 117 d
# 4 118 e
# 5 119 d
# 6 120 e
如果您希望新表中的组合数据,那么这里有一个替代方案。
DBI::dbExecute(con, "
create table mydata12 as
select * from mydata2 union all select * from mydata1")
推荐阅读
- php - jquery Ajax没有保存到mysql
- node.js - text2wav MIME 类型错误 wasm 编译问题?
- javascript - 如何单击包含文本的链接
- angular - 使用 Angular 从 ag-grid-community 迁移到 ag-grid-enterprise
- image - 我正在尝试使用 ASP.NET Core 3.0 MVC 上传图像
- android - Android Gradle 实施项目(':项目名称')不起作用
- python - 在数据帧上调用的函数无法以正确的方式对其进行索引
- hadoop - 在hadoop中合并同一分区内的多个文件的最佳选择?
- javascript - 将 axios 响应保存到状态反应挂钩
- postgresql - postgres,如何在函数中引用插入 ID 来创建表?