Loop read multiple files and assign object name based on filename

loop_multi_file_assign_name.R

library(tidyverse)
library(stringr)

# list files in directory (in the format "x_y_z.csv")
list_files <- list.files("file/path")

for (i in seq_along(1:length(list_files))) {
  
  # read the data
  
  data_import <- read_csv(paste0("file/path/"
                                 , list_files[i])
                          , na = c("NA", "")
                          )
  
  # create object name based on filename
  
  dataframe_name <- tolower(
    paste0("prefix_"
           , str_match(  # function to find a matching string
             list_files[i]
             , "l_(.*?)_v"  # extract string between "x_" and "_z" in filename
           )[, 2]  # extract second element of the str_match() output
    )
  )
  
  # give the temporary data_import object the dataframe_name
  
  assign(dataframe_name, data_import)
  
  # output the filename and object name in the console
  print(list_files[i])
  print(dataframe_name)
  
}