## Loading required package: DBI

## [1] TRUE

library(RSQLite)
# drv <- dbDriver('SQLite') con <- dbConnect(drv, dbname='arrests')

rs <- dbSendQuery(con, "select * from arrests where UrbanPop >= 80")

# dbGetStatement(rs) dbHasCompleted(rs)

df = fetch(rs, n = 50)

head(df)

##       row_names Murder Assault UrbanPop Rape
## 1       Arizona    8.1     294       80 31.0
## 2    California    9.0     276       91 40.6
## 3       Florida   15.4     335       80 31.9
## 4        Hawaii    5.3      46       83 20.2
## 5      Illinois   10.4     249       83 24.0
## 6 Massachusetts    4.4     149       85 16.3

dbClearResult(rs)

## [1] TRUE

dbDisconnect(con)

## [1] TRUE