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 = "")
  }
}

这是一个更大的函数，用于拉出和写入数据。我的问题很简单。我想无限期地打开两个连接，以便能够在不 Activity 12小时后调用该连接。有办法吗？

Answer 1

使用open

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

按照 ?open:

open opens a connection. In general functions using connections will open them if they are not open, but then close them again, so to leave a connection open call open explicitly.