我有一个包含.txt文件的目录,每个文件都包含一串字符。例如I am going to fly to New York
。
我想要做的是(1)用R读取所有文件,(2)添加一些文本,然后(3)将它们写入一个文件,该文件将所有txt文件连接起来并以分页符分隔。< / p>
我的代码执行步骤(1)和(2)。
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='\n\n\n')
}
对于分页符的连接,我想到了这个:
final_statements = do.call(paste, c(text_list, sep='\\newpage'))
如果我运行cat(final_statements
),分隔符将被解释为字符串,并且不会添加分页。
"A LITTLE EXTRA TEXT FROM ME 2\newpagebf_99.txt
I have known her"
这是在这里不起作用的分隔符。有没有办法获得一个final_statements
文件,我可以写入txt,pdf,doc(无关紧要的格式),text_list
的元素是否被分页符分开?
这将节省大量耗时的手动工作。