thanhleviet
10/17/2016 - 7:51 AM

Custom function for downloading data from consumerfinance.gov without taking care the API endpoint

Custom function for downloading data from consumerfinance.gov without taking care the API endpoint

download_cfg.r
content_copyfile_download
my_download <- function(){
  require(RCurl)
  require(rjson)
  require(purrr)
  require(dplyr)
  url_tmp <- c('http://data.consumerfinance.gov/api/views')
  
  id <- fromJSON(file = url_tmp) %>% 
    flatten() %>% 
    .$id
  
  url <- paste0('https://data.consumerfinance.gov/api/views/',id,'/rows.csv?accessType=DOWNLOAD')
  df <- read.csv(text = getURL(url))
  return(df)
}