invisible(if (file.exists("tmp21")) unlink("tmp21", recursive=TRUE))
track.start(dir="tmp21")
a <- 1
b <- rep(2, 2)
track.rename(c("a", "b"), c("b", "a"), clobber=TRUE)
c(a, b)
track.stop()
invisible(if (file.exists("tmp21")) unlink("tmp21", recursive=TRUE))Run the code above in your browser using DataLab