if (FALSE) {
    drv <- dbDriver("Oracle")
    con <- dbConnect(drv, "scott", "tiger")
    res <- dbSendQuery(con, "select * from emp")
    # we now fetch the first 10 records from the resultSet into a data.frame
    data1 <- fetch(res, n = 10)   
    dim(data1)
    dbHasCompleted(res)
    # let's get all remaining records
    data2 <- fetch(res, n = -1)
  }
Run the code above in your browser using DataLab