drv <- dbDriver("Oracle")
con <- dbConnect(drv, "user/password@dbname")
res <- dbSendQuery(con, "select * from LASERS where prdata > '2002-05-01'")
summary(res)
while(dbHasCompleted(res)){
chunk <- fetch(res, n = 1000)
process(chunk)
}
Run the code above in your browser using DataLab