R/get_data.R

In razorhash/cTrader:

GetData <- function(){
  top_cc <- get_marketcap_ticker_all(currency = "EUR")
  kable(head(top_cc))
  mapply(class,top_cc)

  for(names in names(top_cc)) {
    if (!(names %in% c("id","name","symbol"))) {
      top_cc[,names] <- as.double(top_cc[,names])
    }
  }
  return (top_cc)
}