使用 data.table 包的 fread 函数时报错

Cloud2016
跨文件夹搜索慢些，所以才想着拼接到一起。

meeeeeeeeo

我试了试喵君你的方法，用 dir 函数替代 list.files 函数，并且用 readLines 替代 fread 来读入脚本，倒是能够正常读入，也能正常导出。可是问题是，不管是用 writeLines 导出，还是用分果而半教的 do.call 以后再用 fwrite 导出，原来脚本里面的格式都没有了。这是 readLines 的特点。就是格式消失以后，再用眼睛看，强迫症又犯了……脚本如下：

data <- lapply(dir(
  path = '目标目录/',
  pattern = '\\.sql$',
  full.names = TRUE,
  ignore.case = TRUE
),
readLines)

n <- length(data)

res_list <- list()
for (i in 1:n) {
  res_list[[i]] <- data[[i]]
}
res <- do.call(rbind, res_list)

#writeLines(data[[1]], con = "目标目录/tmp.sql", sep = "\t")

fwrite(res,
       file = "目标目录/tmp.sql",
       row.names = F,
       quote = FALSE) 

lovebluesky
我搜了一下 WSL，据说是适用于 windows 的 Linux 子系统。前两天我公司同事刚建议我自己装一次虚拟机，用来了解下部署方面的知识，不造这个 WSL 是不是就是。

话又说回来，其实我一看到 WSL ，首先想到的是“猥琐流”……

meeeeeeeeo
格式就是指代码格式化的那个格式，就是你说的空格的缩进换行。益辉大神给的代码我试过能跑出来。

嗷，本新手的 R 太菜了，此帖子的知识点回头我抽空肝一篇博客来整理一下。

yuanfan
啊，我写了一篇博客，整理了本帖里面提到的方法https://yuanfan.rbind.io/project/r-paste/。

写的时候突然想到 R 里面是不是也会有 Linux 的 cat，于是乎多写了一个方法四，即用 scan 和 cat 函数来读取和导出。但是这个方法有一个细节不够完善，就是用 cat 函数导出的时候，如果只设定fill = TRUE的话，有些本应多行的会连成一行，但是再加上sep = '\n'的话，不会出现多行连成一行的情况，可是同时会导致本来正常换行的行之间多出一行。

举个栗子。正常应该导出下面这样的。

select a.col1,
b.col2
from table1 a
join table2 b on a.id=b.id

如果 cat 函数里设置fill = TRUE，会出现下面这种多行合为一行的。

select a.col1, b.col2
from table1 a 
join table2 b on a.id=b.id

如果再加上sep = '\n'，又会变成下面这样。

select a.col1,
b.col2
from table1 a

join table2 b on a.id=b.id