在会话中更改 tempdir()（更新 R_TempDir）

Question

我正在寻找一种在 R 会话开始后更改 tempdir() 位置的方法。我认为需要更新 C 级全局变量R_TempDir。从 R 中执行此操作的好方法是什么？

Answer 1

更新：Simon Urbanecks unixtools package 具有完成此任务的功能。代码下方（供将来参考）。

set.tempdir <- function(path) {
  invisible(.Call(C_setTempDir, path.expand(path)))
}

C 代码：

#include <string.h>
#include <Rinternals.h>
#include <Rembedded.h>

SEXP C_setTempDir(SEXP sName) {
    if (TYPEOF(sName) != STRSXP || LENGTH(sName) != 1)
    Rf_error("invalid path");
    R_TempDir = strdup(CHAR(STRING_ELT(sName, 0)));
    return sName;
}

Answer 2

如果您解锁 tempdir() 并将新功能重新分配给 baseenv()，它可能会起作用：

tempdir <- function() "/NewTempDir"
unlockBinding("tempdir", baseenv())
assignInNamespace("tempdir", tempdir, ns="base", envir=baseenv())
assign("tempdir", tempdir, baseenv())
lockBinding("tempdir", baseenv())

Answer 3

这很俗气，但你可以通过说来掩盖base::tempdir

tempdir <- function() { "[desired temp dir here]" }

那么，只要您不使用（隐式或显式）在全局环境之前在基本命名空间中查找的代码，您就可以了...

我真的没有看到任何其他方法可以做到这一点，因为它是在初始化时设置的，之后就没有改变。换句话说，Sys.setenv(TMPDIR="/home/bolker/R") 不起作用——为时已晚（您可能知道）。

如果tempdir() 不那么硬编码，那会容易得多......我不太了解这里的设计标准（或者，更不仁慈的是，是否有经过深思熟虑的设计标准......） . （我对.libPaths() 的硬编码/设计也感到同样的脾气暴躁，这是相似的......一旦你在运行的 R 会话中就无法改变事情。）

Answer 4

2016 年，我的品味和用例仍然没有找到好的答案。 我遇到了同样的问题，发现从用户的角度来看，以下解决方案是最干净的：

# test.R content
message(tempdir())

现在在脚本运行时更改根 tempdir：

mkdir rtmp; TMPDIR=$PWD/rtmp Rscript test.R; rm -rf rtmp

或者在表达式运行时：

mkdir rtmp; TMPDIR=$PWD/rtmp R -e 'tempdir()'; rm -rf rtmp

还值得一提的是，编写脚本/包的程序员应该使用大量空间来存储临时文件，应该像@João Daniel 提到的那样处理 tmpdir。

Answer 5

tempdir() 函数是创建临时目录的好方法，因此您可以存储在会话的最后一个有效的文件。它返回在会话开始时创建的临时目录，并且默认存储由tempfile() 创建的新临时文件。

但它与工作目录无关。如果你想改变工作目录，你应该使用命令setwd()。

如果要更改存储临时文件的目录，应将其设置为命令的参数。

tempfile(tmpdir="/my/path/to/tmpfile")