d <- tempfile() dir.create(d) setwd(d) # Now work and sweave and latex etc
d
file.remove
unlink(\"d\",recursive=TRUE)
?unlink
unlink(d,recursive=TRUE)
file.remove(dir(d,full.names=TRUE))