RE: [R] More on global environment

From: Mike Prager <Mike.Prager_at_noaa.gov>
Date: Fri 16 Jul 2004 - 05:36:06 EST

At 7/15/2004 03:23 PM Thursday, Andy Liaw wrote:
>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



R-help@stat.math.ethz.ch 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 Received on Fri Jul 16 05:50:31 2004

This archive was generated by hypermail 2.1.8 : Fri 18 Mar 2005 - 02:36:36 EST