read all files in a directory into a data frame, with a column recording filename using tidyverse in r

main.r
library(tidyverse)

# Set directory path
dir_path <- "path/to/directory"

# Create a dataframe to store the data
data_frame <- data.frame()

# Loop through all files in the directory
for (file in list.files(path = dir_path, full.names = TRUE)) {
  
  # Read the file into a temporary dataframe
  temp_df <- read_csv(file, col_types = cols())
  
  # Extract the filename
  filename <- str_extract(file, "\\w+\\.csv$")
  
  # Add filename as a new column
  temp_df <- mutate(temp_df, filename = filename)
  
  # Append the temporary dataframe to the main dataframe
  data_frame <- bind_rows(data_frame, temp_df)
}

# Preview the data
head(data_frame)
649 chars
27 lines