Combine multiple .csv files in R

combine.r

require(readr)  # for read_csv()
require(dplyr)  # for mutate()
require(tidyr)  # for unnest()
require(purrr)  # for map(), reduce()

data_path <- 'c:/user/myname' # put your file path here
# find all file names ending in .csv 
files <- dir(data_path, pattern = "*.csv") 

data <- files %>%
  # read in all the files, appending the path before the filename
  map(~ read_csv(file.path(data_path, .))) %>% 
  reduce(rbind)

# Write out full csv file
write_csv(data, paste0(data_path,'final_data.csv')