if (requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- dplyr::src_sqlite(":memory:", create = TRUE)
d <- replyr_copy_to(my_db,data.frame(x=c(1,2)),'d')
d2 <- replyr_copy_from(d)
print(d2)
}
Run the code above in your browser using DataLab