Stacking files

stakfile

# Set the Directory
setwd("~/yourpath")

# Geting a List of Files

files <- listfiles(pattern= \\.text$')

# บางครั้ง อาจจะเจอกับ

info = file.info(files)
enpty = rownames(info[info$siz ==0, ])

# อันนี้อาจจะดูไม่ค่อยพบบ่อยเท่าไหร่ แต่ว่า คุณก็สามารถรวมไฟล์ได้ถ้าคนละสกุล

CSVs <- listfiles(pattern='csv')
TEXTs <- listfiles(pattern='txt)
mylist <- CSVs[!CSVs %in% TEXTs]

# Stacking files into a dataframe
cand_br <- do.call("rbind", lapply(files, FUN = function(files) {
  read.table(files, 
              header=FALSE, 
              sep=";",stringsAsFactors = FALSE,  
              fileEncoding="cp1252", 
              fill = TRUE, blank.lines.skip = TRUE) 
  }
  )
  )