[R] 한 폴더 안에 있는 데이터를 몽땅 한 데이터 프레임으로 불러오기

R: 한 파일안에 있는 데이터를 몽땅 한 데이터 프레임으로 불러오기
library(progress)
library(readr)
library(dplyr)
options(encoding = 'UTF-8')
Sys.setenv(LANG = "en_US.UTF-8")
files <- list.files(pattern = "csv$") #read all csv file names in working directory
pb <- progress_bar$new(total = length(files)) #setting progress bar
rowN <- 10000 #setting row number
tempDf <- data.frame(index=rep(0,rowN)) #initiate data frame
for(i in 1:length(files)){ #loop in all csv files
  pb$tick() #single tick in progress bar
  con = file(files[i], "r") #open file
  tempCol <-read.csv((con), nrows=rowN) #get data
  colnames(tempCol) <- c(substr(files[i],1,nchar(files[i])-4)) #adjusting column name as file name
  tempDf <- cbind(tempDf,tempCol) #merging data
  close(con) #closing file
}
CUSTINFO <- tempDf[,-1] #deleting index column
rm(tempDf)