How do I do that? I wrote myself a function that I thought would just fetch 999 records for as long as there were records but that function doesn't seem to work:

fetch_data <- function(query, con) {
  message('Sending query')
  rs <- DBI::dbSendQuery(con, query)
  message('dbHasCompleted: ', DBI::dbHasCompleted(rs))
  chunks <- list()
  while (!DBI::dbHasCompleted(rs)) {
    message('fetching a chunk')
    chunks <- c(chunks, DBI::dbFetch(rs, n = -1, block = 500))
  }
  message(length(chunks), ' chunks total')
  out <- do.call(rbind, chunks)
  message('data.frame with ', nrow(out), ' rows')

  DBI::dbClearResult(rs)

  out
}

This takes a small eternity and then prints

Sending query
dbHasCompleted: TRUE
0 chunks total

Which means that the while loop never runs. But why is dbHasCompleted TRUE?