如何将多个表格输出成一个 txt 格式的 log file

[梁竹西]

实务中有时我们需要将一路火花带闪电 fwrite 出来的 csv 报告整合成一个 txt 格式的 log file 来应付领导检查，这时就可以用如下代码实现：

require(data.table)
require(stringr)
logs = list.files('logs folder/')
log_list = list()
for( f in 1:length(logs) ) {
  log_list = c( log_list, list( fread(str_glue( "logs folder/", f )) ) )
}
names(log_list) = str_remove( logs, '.csv' )
capture.output( log_list, file = 'log.txt' )