unlink(tempdir(), recursive = TRUE)

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' を開くことができません: そのようなファイルやディレクトリはありません