if (FALSE) {
f <- function() {
redirect("Tau", target = "~/TauExperiment")
# the following call will change directory
# into ~/TauExperiment instead of /Tau
readSource("Tau")
}
f()
# Tau is only redirected in the local environment of f,
# so it will use the usual source folder here
readSource("Tau")
}
Run the code above in your browser using DataLab