# NOT RUN {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
# my_db <- sparklyr::spark_connect(master = "local")
d <- replyr_copy_to(my_db, data.frame(x=c(1,2)), 'd',
overwrite=TRUE, temporary=TRUE)
dplyr_src_to_db_handle(replyr_get_src('d'))
# }
Run the code above in your browser using DataLab