# NOT RUN {
summary(SQLite())
con <- dbConnect(SQLite())
summary(con)
dbWriteTable(con, "mtcars", mtcars)
rs <- dbSendQuery(con, "SELECT * FROM mtcars")
summary(rs)
dbClearResult(rs)
dbDisconnect(con)
# }
Run the code above in your browser using DataLab