如何使用R删除Windows下的临时文件夹？

在会话之后,我想清理我的临时文件夹,例如

d <- tempfile()
dir.create(d)
setwd(d)
# Now work and sweave and latex etc

如何删除d及其元素？ file.remove失败.

尝试取消链接(“d”,递归= TRUE).那应该删除文件夹及其内容.