I've posted the following to R-help before. Hope it helps you.
cd <- function(dir = tclvalue(tkchooseDirectory()), saveOld=FALSE, loadNew=TRUE) { stopifnot(require(tcltk))
flush.console()
if (saveOld) save.image(compress=TRUE) setwd(dir) rm(list=ls(all=TRUE, envir=.GlobalEnv), envir=.GlobalEnv) if (loadNew && file.exists(".RData")) { loaded <- load(".RData", envir=.GlobalEnv) return(invisible(loaded)) } }
[The tcltk part is based on Prof. Fox's help.]
Andy
Thanks! It's lovely. I added the call to flush.console() as shown, which (under Windows RGUI at least) issues the message that tcl is loading in a more timely way.
Mike
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html