Собирать запрос к базе данных асинхронно с фьючерсами

Question

Я пытаюсь асинхронизировать свои запросы к dbplyrs, но в настоящее время он не работает:

library(dplyr)
library(tibble)
library(DBI)

con <- dbConnect(RSQLite::SQLite(), path = ":memory:")
db_flights <- copy_to(con, nycflights13::flights)

db_flights

flights_10000_df %<-% {
  db_flights %>% 
    head(10000) %>% 
    dplyr::collect()
}
#> Error in UseMethod("collect") : 
#> nicht anwendbare Methode für 'collect' auf Objekt der Klasse "list" angewendet

В чем здесь проблема?(извините за немецкую ошибку)

(планируем улучшить вопрос позже)