library(dplyr)
set.seed(1014)
mtcars$model <- rownames(mtcars)
mtcars2 <- src_memdb() %>%
copy_to(mtcars, indexes = list("model"), overwrite = TRUE)
mtcars2 %>% filter(model == "Hornet 4 Drive")
# copy_to is called automatically if you set copy = TRUE
# in the join functions
df <- tibble(cyl = c(6, 8))
mtcars2 %>% semi_join(df, copy = TRUE)
Run the code above in your browser using DataLab