read_folder <- function(infolder) {
  data_frame(file = dir(infolder, full.names = TRUE)) %>%  # lees filenames
  mutate(text = map(file, read_lines)) %>%  # voeg inhoud toe
  transmute(id = basename(file), text) %>%  # drop fullname
  unnest(text)  # ontvouw lists