R/getPnet.R

In neaGUI: A user friendly R package to perform the network enrichment analysis (NEA).

getPnet <-
function () {
initdir <- get("initdir", envir = .GlobalEnv )

filename <- tclvalue(tkgetOpenFile(filetypes = gettext("{\"R Data Files\" {\".rda\" \".Rdata\" \".RDA\"}} {\"All Files\" {\"*\"}}"), 
initialdir = initdir))
      
tkconfigure(tt ,cursor="watch")
     # tclvalue(filepnet) <<- filename

#dataSet <- load(filename, envir = .tempEnv )
LoadRdata(filename,"Pnet")
  tclvalue(filepnet) <<- paste(inptObjt, "->", filename)
	checkObject ("inptObjt")

      tkconfigure(tt ,cursor="arrow")


}