R/download_data.R

In voigtstefan/Rbitcoincharts: R Interface to access the Rbitcoincharts API

#' Download data
#' @importFrom R.utils gunzip
#' @export
download.data <- function(exc = "kraken", cur = "GBP", folder = ".") {
    url <- get.url(exc, cur)
    download.file(url$url, paste(folder, url$names, sep = "/"))
    cat("Extracting :", url$filename, "\n")
    R.utils::gunzip(paste(folder, url$names, sep = "/"), overwrite = TRUE)
}