Question

我正在寻找一种方法来阻止R在会话期间覆盖文件。更通用的解决方案则更好。

目前我收到了一系列称为例如：safe.save，safe.png，safe.write.table的函数，这些函数或多或少地实现了

safe.smth <- function(..., file) {
    if (file.exists(file))
        stop("File exists!")
    else
        smth(..., file=file)
}

它有效，但前提是我控制了执行。如果某个（不是我的）函数创建了文件，我无法阻止它被覆盖。

另一种方法是在文件上设置只读标志，这也是覆盖现有文件的前R。但这也有缺点（例如：你不知道哪些文件需要保护）或者写一行：

protect <- function(p) if (file.exists(p)) stop("File exsits!") else p

并在提供文件名时始终使用它。

有没有办法强制这种行为会话？连接的某种全局设置？也许只针对功能的子集（图形设备，file - 创建的连接等）？也许某些系统特定的解决方案？

以下内容可用作测试用例：

test <- function(i) {
    try(write.table(i, "test_001.csv"))
    try(writeLines(as.character(i), "test_002.txt"))
    try({png("test_003.png");plot(i);dev.off()})
    try({pdf("test_004.pdf");plot(i);dev.off()})
    try(save(i, file="test_005.RData"))
    try({f<-file("test_006.txt", "w");cat(as.character(i), file=f);close(f)})
}
test(1)
magic_incantations() # or magic_incantations(test(2)), etc.
test(2) # should fail on all writes (to test set read-only to files from first call)

Answer 1

避免破坏数据文件的常规方法不是查找操作系统黑客，而是使用会话专用的文件名和目录。

session.dir <- tempdir()
...
write.table(i, file.path(session.dir,"test_001.csv"))
writeLines(as.character(i), file.path(session.dir,"test_002.txt"))
...

或

session.pid <- Sys.getpid()
...
write.table(i, paste0("test_001.",session.pid,".csv"))
writeLines(as.character(i), paste0("test_002.",session.pid,".txt"))
...

如何防止覆盖文件？

1 个答案: