data_path = "data"
files <- dir(data_path, pattern = "*.txt")

data <- data_frame(filename = files) %>% # create a data frame
                                         # holding the file names
  mutate(file_contents = map(filename,          # read files into
           ~ readLines(file.path(data_path, .))) # a new data column
        )
data