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

打開一個連接。在一般情況下，使用連接的函數會打開它們，如果它們沒有打開，但是再次關閉它們，這樣就可以明確地打開一個打開的連接。