r - 如何从使用 write.table 创建的 CSV 文件中删除尾随空格或换行符？

Question

我想将 R 中的数据框写入 CSV 文件。考虑以下玩具示例

df <- data.frame(ID = c(1,2,3), X = c("a", "b", "c"), Y = c(1,2,NA))
df[which(is.na(df[,"Y"])), 1]

write.table(t(df), file = "path to CSV/test.csv", sep = ""), col.names=F, sep=",", quote=F)

test.csv 中的输出看起来如下

ID,1,2,3
X,a,b,c
Y, 1, 2,NA

乍一看，这正是我需要的，但在上面的代码插入中看不到的是NA之后的在最后一行，还有一个换行符。当我通过test.csv到网站上的 Javascript 图表，但是，尾随换行会导致麻烦。

有没有办法避免在 R 中出现这个最后的换行符？

Answer 1

这有点令人费解，但可以获得您想要的结果:

zz <- textConnection("foo", "w")
write.table(t(df), file = zz, col.names=F, sep=",", quote=F)
close(zz)
foo
# [1] "ID,1,2,3"   "X,a,b,c"    "Y, 1, 2,NA"
cat(paste(foo, collapse='\n'), file = 'test.csv', sep='')

您应该最终得到一个仅在前两个数据行之后具有换行符的文件。