files = list.files()
text_list = list()
for(i in 1:length(files)){
  text_list[[i]] = paste(files[i]
                     , readChar(files[i], file.info(files[i])$size)
                     , 'A LITLLE EXTRA TEXT FROM ME'
                     , 'A LITLLE EXTRA TEXT FROM ME 2'
                     , sep='nnn')
}

final_statements = do.call(paste, c(text_list, sep='\newpage'))