警告：关闭未使用的连接 n

Question

getCommentary=function(){
    Commentary=readLines(file("C:\\Commentary\\com.txt"))
    return(Commentary)
    close(readLines)
    closeAllConnections()
}

我不知道这个功能有什么问题。当我在 R 中运行它时，它不断向我发出以下警告：

Warning message:
closing unused connection 5 ("C:\\Commentary\\com.txt") 

Answer 1

readLines() 是一个函数，您不需要 close() 它。您想要关闭由 file() 函数打开的连接。此外，您在关闭任何连接之前return()。就函数而言，return() 语句后面的行不存在。

一种选择是保存 file() 调用返回的对象，因为您不应该只关闭函数打开的所有连接。这是一个非函数版本来说明这个想法：

R> cat("foobar\n", file = "foo.txt")
R> con <- file("foo.txt")
R> out <- readLines(con)
R> out
[1] "foobar"
R> close(con)

但是，要编写您的函数，我可能会采取稍微不同的策略：

getCommentary <- function(filepath) {
    con <- file(filepath)
    on.exit(close(con))
    Commentary <-readLines(con)
    Commentary
}

其使用方式如下，上面创建的文本文件作为示例文件来读取，

R> getCommentary("foo.txt")
[1] "foobar"

我使用 < code>on.exit() 这样，一旦创建了 con，如果函数由于某种原因终止，连接将被关闭。如果您将其留给最后一行之前的 close(con) 语句，例如：

    Commentary <-readLines(con)
    close(con)
    Commentary
}

该函数可能会在 readLines() 调用上失败并终止，因此连接不会被关闭。 on.exit() 将安排关闭连接，即使函数提前终止也是如此。