Edited at

unlink(tempdir(), recursive = TRUE)

More than 1 year has passed since last update.

Rのセッション中に利用される

一時フォルダは一つだけなので,

unlink (tempdir(), recursive = TRUE)

などと recursive を ON にして実行してしまうと,

そのセッションでは,これ以降一時フォルダを

利用する関数類は使えなくなってしまうのであった...

> # tempdir は有効

> fun <- cxxfunction(signature(vx = "integer"), body = src, plugin= "Rcpp")
> fun(1L:10L)
[1] 3628800
> unlink (tempdir(), recursive = TRUE) # tempdir()を削除してしまう
> fun <- cxxfunction(signature(vx = "integer"), body = src, plugin= "Rcpp")
以下にエラー file(file, ifelse(append, "a", "w")) :
コネクションを開くことができません
追加情報: 警告メッセージ:
In file(file, ifelse(append, "a", "w")) :
ファイル '/tmp/RtmpGc6Qlv/file1f2395bf85d.cpp' を開くことができません: そのようなファイルやディレクトリはありません