如何在R中覆盖一行到文本文件？

Question

我使用readLines（）读取了文本文件的行。然后，我应用writeLines（）来覆盖一行并将其写入该文件连接。请注意，我想覆盖此文本文件的每一行。我想要的是：

    IF X1 is Low and X2 is High THEN CLASS1

但我得到的是：

    IF X1 is Low and X2 is High THEN 
    CLASS1

我的代码如下：

    con <- file("test.txt")
    a<-readLines("test.txt")
    temp<-c(a[1],"CLASS1") 
    writeLines(temp, con)
    close(con)

有什么问题？每行末尾的“\ n”是否有任何问题导致此结果？有没有其他方法而不是readLines（）？