R/tidyverse read multiple files into one large df

gistfile1.txt

library(tidyverse)
library(fs)
# Let us  make some fake data

fs::dir_create("data")
makesomefiles <- tibble(
  path= paste0("data/", LETTERS, ".dummytxt")
)
makesomefiles

# make some content for these files

sometext <- tibble(text="Hi there2")

walk2(sometext$text, makesomefiles$path, write_lines)

read_massive <-function(filename) {
  
  junk <- readr::read_lines(file = filename) %>% 
    tibble(
      filename_reference = filename
    )
  
  return(junk)
}

listoffiles <- dir_info(here::here("data")) %>% filter(str_detect(path, "dummytxt"))
#listoffiles$path

content1 <- map(listoffiles$path, read_massive) %>% map_df(bind_rows)