R/saveXls.R

In IsoGeneGUI: A graphical user interface to conduct a dose-response analysis of microarray data

`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!")
   }
}