# add the path where the csv's are located
setwd("./Downloads/test/")
# list csv files inside the directory
# for each: import the csv (read.csv function)
# add filename as a column
Tbl <- list.files(path = "./",
map_df(function(x) read_csv(x, col_types = cols(.default = "c")) %>%
mutate(filename=gsub(".csv","",basename(x))))