快刹车快刹车,已经跑得有点歪了。这个任务本来应该是很简单的。
yuanfan 原来脚本里面的格式都没有了
如果只是拼接一系列 .sql
文件,那么不需要 rbind()
,只需要把你那个大列表打散即可(unlist(data)
)。
我在 xfun 包中有个 read_all()
函数,就是干这个的。
files <- list.files( '目标目录/', '\\.sql$', full.names = TRUE, ignore.case = TRUE)
text <- xfun::read_all(files)
xfun::write_utf8(text, '目标目录/tmp.sql')
若不用 xfun,那么如此这般写:
files <- list.files( '目标目录/', '\\.sql$', full.names = TRUE, ignore.case = TRUE)
text <- unlist(lapply(files, readLines))
writeLines(text, '目标目录/tmp.sql')