用于API调用的for循环，然后插入到R中的单个数据帧中

library(jsonlite)
library(data.table)
library(anytime)
library(xts)
library(quantmod)

response <- fromJSON('https://www.cryptocompare.com/api/data/coinlist')
cryptocurrencies <- data.table::rbindlist(response$Data, fill=TRUE)

for (i in 1:10) {

prices  <- fromJSON(paste0("https://min-api.cryptocompare.com/data/histoday?
fsym=",as.character(cryptocurrencies[1,5]),
"&tsym=USD&allData=true&e=CCCAGG"))
prices                   <- data.frame(prices$Data)
prices$Symbol            <- rep(cryptocurrencies[1,5],nrow(prices))

all_prices = do.call(rbind, prices)
}