# create a SQLite instance and create one connection.
m <- dbDriver("SQLite")
# initialize a new database "base.dbms" in the current directory
# and copy some data.frame from the base package into it
con <- dbConnect(m, dbname = "base.dbms")
data(USArrests)
dbWriteTable(con, "USArrests", USArrests, overwrite = T)
# query
rs <- dbSendQuery(con, "select * from USArrests")
d1 <- fetch(rs, n = 10) # extract data in chunks of 10 rows
dbHasCompleted(rs)
d2 <- fetch(rs, n = -1) # extract all remaining data
dbHasCompleted(rs)
dbClearResult(rs)
dbListTables(con)
Run the code above in your browser using DataCamp Workspace