gistfile1.r

 library(dplyr)

my.db <- src_sqlite("my_db.sqlite3", create = TRUE)
# creates an empty file
library(nycflights13)

# link to flights table
flights.db <- copy_to(my.db, flights, temporary = FALSE, 
                        indexes = list(c("year", "month", "day"), "carrier", "tailnum"))

out <- tbl(my.db, sql("SELECT tailnum, distance FROM flights WHERE distance > 1000"))

# do some work with the table
flights.db %>% 
  filter(distance > 1000 & day == 5 & dest == "LAX") %>%
  mutate(speed = distance/air_time)

flights.db %>%
  group_by(month) %>%
  summarize(delay = mean(dep_delay))

# close the connection, refer to the 'con' list element
RSQLite::dbDisconnect(my.db$con)
unlink("my_db.sqlite3")