使用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：

  

打开一个连接。一般来说，使用连接的函数如果没有打开就打开它们，但是再次关闭它们，这样就可以明确地打开一个连接打开的调用。