R/saveDir.R

Defines functions `saveDir`

`saveDir` <-
function() {
Dir <- tclvalue(tkchooseDirectory(title="Please specify the folder"))
assign("DirName",Dir ,envir=.GlobalEnv)
tclvalue(SaveDirName ) <<- Dir 
if (!nchar(Dir ))
    tkmessageBox(message="No folder was selected!")
}

Try the IsoGeneGUI package in your browser

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

IsoGeneGUI documentation built on May 2, 2019, 4:49 p.m.