Как реализовать асинхронную загрузку данных?

Я загружаю набор данных с помощью REST API с биржи binance и из библиотеки binancer. По мере увеличения количества тикеров продолжительность выполнения кода увеличивается. В качестве примера приведу свой код с расчетом времени выполнения:

library(binancer)
start.time <- Sys.time()
x <- lapply(list('LINKUSDT', 'RUNEUSDT', 'ETCUSDT', 'ATOMUSDT', 'LINKUSDT', 'DOGEUSDT', 'SXPUSDT', 'SRMUSDT', 'OMGUSDT', 'ALGOUSDT', 'BTCUSDT', 'BCHUSDT', 'AAVEUSDT'), function(x){
  data <- binance_depth(symbol = x, limit = 100)
})
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken

Time difference of 3.903079 secs

для меня такое время ожидания загрузки данных велико. Я знаю, что асинхронная обработка может мне помочь. Как мне реализовать асинхронную обработку, тем самым не дожидаясь каждый раз 4 секунды полного выполнения кода?