R 在文件中保存数字数据

我正在生成大量数据，希望在运行期间只存储选定的值。但它总是保存最后的结果。例如，在下面的示例代码中，它总是存储满足我的条件的最后一个结果。请记住，我有大量数据，不想存储在向量或列表中，但希望立即存储在文件中。我需要你的帮助

谢谢

f<-function(x) (x-1)*(x-5)*(x-10)

fileE<-file("E.txt")
for (i in seq(1,100,0.1)){
   if (f(i) > 0 && f(i) < 10)
      writeLines(paste0(i,"   ",f(i)), fileE)
}
close(fileE)

---

f可能使用
write
和append:

unlink("E.txt")

for (i in seq(1, 100, 0.1)){
  res <- f(i)
  if (res > 0 & res < 10)
    write(x = paste0(i, " ", res), file = "E.txt", append = TRUE)
  }

取消链接（“E.txt”）
（i）在下文（1100，0.1）中）{
分辨率0&res<10）
写入（x=paste0（i，“，res），file=“E.txt”，append=TRUE）
}
这是可行的，但如果我再次运行模拟，它将在以前的现有文件中追加数据。如何删除以前的数据并开始追加新数据？否，它仍然会添加到以前的数据文件中，并且不会删除以前的内容。
取消链接
文件以在运行之间删除它。（或者
如果（i==1）在循环中取消链接（“E.txt”）
），这是有效的。我在循环外使用了unlink（“E.txt”），我认为在循环内写入if条件不是一个好主意，对于庞大的序列，这将需要一些处理时间。在循环之前，我只使用了unlink（“E.txt”），它可以工作。