R/selectwd.R

Defines functions `selectwd`

`selectwd` <-
function() {
  require(tcltk)
  wd <- tclvalue(tkchooseDirectory())
  setwd(wd)
  cat("Nouveau repertoire de travail : ",wd,"\n",sep="")
  cat("Pour automatiser ce changement dans un script, utilisez :\n")
  cat("setwd(\"",wd,"\")\n",sep="")
}

Try the rgrs package in your browser

Any scripts or data that you put into this service are public.

rgrs documentation built on May 2, 2019, 4:54 p.m.