安全地测试文件是否通过R打开

正如哈德利·韦翰在《Advanced R》中所写:

可以保存try()的结果，并根据代码成功或失败执行不同的操作，但不建议这样做.相反，最好使用tryCatch().

下面是我编写此函数的方式:

is_file_open <- function(path, mode = "r+b") {
  tryCatch(
    {
        con  <- suppressWarnings(file(path, open = mode))
        on.exit(close(con))
        FALSE
    },
    error = function(e) TRUE
  )
}

我们可以用"r+b"模式打开文件.从file()的docs开始:

"r+" "r+b":开放阅读和写作.

因为docx是二进制的，所以我们应该使用b，尽管我认为如果您不向文件写入数据，这并不重要.这将提供正确的输出，并且不会删除文件的内容.

此外，使用前面的函数，如果您运行几次，然后运行showConnections()，它将打印类似Warning message: In .Internal(gc(verbose, reset, full)) :closing unused connection 4 (test.docx)的内容.我们可以通过在退出函数时显式关闭连接来避免这种情况.

# With the file open in MS Word
is_file_open("test.docx")
# [1] TRUE

# With the file not open
is_file_open("test.docx")
# [1] FALSE

更好的功能

然而，这种is_file_open()方法的一个问题是，如果遇到任何错误，它将返回TRUE.在这种情况下，这可能不是问题，但您不能实际使用该函数来可靠地测试文件是否打开.

我觉得最好是有这样一个功能:

can_write_to_file <- function(path, mode = "r+b") {
    if(!file.exists(path)) {
        warning("The file does not exist. Checking if it can be created.")
        tryCatch(
            {   
                # Check if we can write to a non-existent file
                close(suppressWarnings(file(path, open = "w")))
                # If we can then delete the empty file
                unlink(path)
                return(TRUE)
            },
            error = function(e) return(FALSE)
        )
    }
  # Check whether an existing file can currently be written to
  tryCatch(
    {
        close(suppressWarnings(file(path, open = mode)))
        TRUE
    },
    error = function(e) FALSE
  )
}

这就是用户对函数名的期望.