Я работаю с пакетом crypto
в rstudio
, и мне нужно найти 9 month
возвратов вершины 100 coins
между Jan 1 and Oct 1
.Пока у меня есть
coinreturns <- data.frame(symbol = character(), ninemonth_return = numeric(), stringsAsFactors=FALSE)
for(i in 1:100){
crypto.list <- crypto_list();
coin <- crypto.list[i, 1]
coin_charts <- daily_market(coin)
coin_charts$timestamp <- as.Date(coin_charts$timestamp)
coinoct1price <- coin_charts %>%
group_by(timestamp) %>%
summarize(Avg_priceUSD = mean(price_usd)) %>%
arrange(timestamp) %>%
filter (timestamp == as.Date("2018-10-01"))
coinjan1price <- coin_charts %>%
group_by(timestamp) %>%
summarize(Avg_priceUSD = mean(price_usd)) %>%
arrange(timestamp) %>%
filter (timestamp == as.Date("2018-01-01"))
ninemonth_return <- (coinoct1price[1,2] - coinjan1price[1,2])/coinjan1price[1,2]
coinreturns[i, ] <- list(coin, ninemonth_return)
}
Это загружает возврат для верха 43 coins
.Когда я пытаюсь получить ежедневные рыночные данные для 44th coin
с помощью функции daily_market, я получаю это сообщение об ошибке
Ошибка: лексическая ошибка: недопустимый символ в тексте json.https://graphs2.coinmarketcap.c (прямо здесь) ------ ^
Я искал способы пропустить ошибки в циклах и видел функцию try или функцию try catch, но у меня по праву есть нолькак бы я реализовал это в этом случае или если я даже на правильном пути здесь.Я был бы признателен за любую помощь.