R/saveXls.R

`saveXls` <-
function() {

fileName <- tclvalue(tkgetSaveFile(filetypes="{{Excel Files} {.xlsx}} {{All files} *}"))
split <- strsplit(fileName,".",fixed=TRUE)
fileXls2 <<- paste(split[[1]][1],".xlsx",sep="")
assign("fileXls",fileXls,envir=.GlobalEnv)
tclvalue(fileXls) <<- fileXls2 
if (!nchar(fileName)) {
   tclvalue(fileXls) <<- c("")  
   tkmessageBox(message="No file 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 Nov. 1, 2018, 3:57 a.m.