在writeline中的文件末尾添加额外的换行符

Question

我有以下数据框（也是数据表）：

  

DATA6

y

我想按原样将其写入文件。 我使用以下命令：

1 44348616 1 1 OV1
2 44348616 2 1 OV2
3 44348616 3 1 OV3
4 44348695 1 1 OV4
5 44348695 2 1 OV5
6 44348695 3 1 OV6
7 44348496 1 1 OV7
8 44248192 1 1 OV8
9 44348697 1 1 OV9

当我使用编辑器查看文件MyLittleData.txt时，我看到了2条额外的行。最后一行表示文件的结尾（这是好的），在它之前还有一个额外的空行。我怎么能避免它？

Answer 1

对我来说一切似乎都很好：

## Read in the data
data6 = read.table(textConnection("1 44348616 1 1 OV1
2 44348616 2 1 OV2
3 44348616 3 1 OV3
4 44348695 1 1 OV4
5 44348695 2 1 OV5
6 44348695 3 1 OV6
7 44348496 1 1 OV7
8 44248192 1 1 OV8
9 44348697 1 1 OV9"))
R> dim(data6)
[1] 9 5

运行您的代码：

s = paste(apply(t(data6), 2, paste, collapse=' '),collapse='',"\n")
writeLines(s, con=file("/tmp//MyLittleData.txt"))

读入您的数据集并计算行数：

length(readLines("/tmp//MyLittleData.txt"))
[1] 10

这更多是评论而不是答案，但它的评论太大了