r - 在 R 中使用 file() 无限期地打开连接

Question

我有这个功能可以将来自 Twitter 的流数据写入一个文件 12 小时，然后再写入另一个文件 12 小时。这样我们就可以每天两次清理、解析和存储数据。

conn <- file(description = "after12.json", open = "a")
conn2 <- file(description = "before12.json", open = "a")
write.tweets <- function(x) {
  if (nchar(x) > 0 && format(Sys.time(), " %H") >= 12){
    writeLines(x, conn, sep = "")
  } else {
    writeLines(x, conn2, sep = "")
  }
}

这是一个更大的函数来提取和写入数据。我的问题很简单。我想无限期地打开两个连接，以便能够在 12 小时不活动后调用连接。有没有办法我可以做到这一点？

Answer 1

采用open

conn <- file(description = "after12.json")
open(conn, open = "a")

根据?open：

open 打开一个连接。一般来说，使用连接的函数会在它们未打开时打开它们，然后再次关闭它们，因此要使连接打开调用显式打开。