# create an MySQL instance and set 10000 of rows per fetch.
m <- dbDriver("MySQL", fetch.default.records=10000)
con <- dbConnect(m, username="usr", password = "pwd",
dbname = "iptraffic")
rs <- dbSubmitQuery(con,
"select * from HTTP_ACCESS where IP_ADDRESS = '127.0.0.1'")
df <- fetch(rs, n = 50)
df2 <- fetch(rs, n = -1)
dbClearResult(rs)
pcon <- dbConnect(p, group = "wireless")
dbListTables(pcon)
Run the code above in your browser using DataLab