kaggle.R

kgl_competitions_data_download <- function(competition_id, file_name, path = ".") {
  .kaggle_base_url <- "https://www.kaggle.com/api/v1"    
  url <- paste0(.kaggle_base_url, "/competitions/data/download/", competition_id, "/", file_name)
  rcall <- httr::GET(url, httr::authenticate(Sys.getenv("KAGGLE_USER"), Sys.getenv("KAGGLE_KEY"), type = "basic"))
  tmp <- tempfile()
  download.file(rcall$url, tmp)
  invisible(file.copy(tmp, paste0(path, "/", file_name)))
}