# NOT RUN {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
tempNameGenerator = makeTempNameGenerator("bind_rowsQ_demo")
d1 <- replyr_copy_to(my_db, data.frame(x=1:2, y= 10:11), 'd1')
d2 <- replyr_copy_to(my_db, data.frame(x=3:4, y= 13:14), 'd2')
bind_rowsQ(c('d1', 'd2'), c('x', 'y'), my_db,
tempNameGenerator = tempNameGenerator,
origTableColumn = 'orig_table')
# }
Run the code above in your browser using DataLab