docs/articles/LendingClubData.R

In kuhnrl30/LendingClubData: Dataset of Historical Loans Issued by Lending Club

## ---- echo=F-------------------------------------------------------------
knitr::opts_chunk$set(cache=FALSE, fig.height=3, fig.width = 7, comment=NULL, eval=F, tidy=F, width=80, message = F, warning= F)

## ------------------------------------------------------------------------
#  library(LendingClubData)
#  library(dplyr)

## ----makelinks-----------------------------------------------------------
#  Links<- character()
#    Links[1]<- "LoanStats3a.csv"
#    Links[2]<- "LoanStats3b.csv"
#    Links[3]<- "LoanStats3c.csv"
#    Links[4]<- "LoanStats3d.csv"
#    Links[5]<- "LoanStats_2016Q1.csv"
#    Links[6]<- "LoanStats_2016Q2.csv"
#    Links[7]<- "LoanStats_2016Q3.csv"
#    Links[8]<- "LoanStats_2016Q4.csv"
#    Links[9]<- "LoanStats_2017Q1.csv"

## ------------------------------------------------------------------------
#  path<-tempdir()
#  
#  lapply(paste0("https://resources.lendingclub.com/",Links,".zip"),
#         GetLoanData,
#         directory=path)
#  
#  df_list<- lapply(paste0(path,"\\",Links),
#                   Prep_Loan_Data)
#  
#  dat<- plyr::rbind.fill(df_list)

## ------------------------------------------------------------------------
#  zips<- dir("../downloads")
#  lapply(paste0("../downloads/",zips), unzip, exdir="../downloads")
#  datfiles<- grep("csv$",dir("../downloads"), value=T)
#  
#  df_list<- lapply(paste0("../downloads/",datfiles), Prep_Loan_Data)
#  
#  dat<- plyr::rbind.fill(df_list)

## ------------------------------------------------------------------------
#  dat$emp_title<- stringi::stri_trans_general(dat$emp_title, "Any-Null")
#  dat$desc<- stringi::stri_trans_general(dat$desc, "Any-Null")

## ------------------------------------------------------------------------
#  split<- floor(nrow(dat)/2)
#  LendingClubData_1<- dat[1:split,]
#  LendingClubData_2<- dat[(split+1):nrow(dat),]
#  
#  save(LendingClubData_1, file="../data/LendingClubData_1.rda")
#  save(LendingClubData_2, file="../data/LendingClubData_2.rda")

## ------------------------------------------------------------------------
#  IssuedLoans()