如何从gwidgets中的函数返回值

时间:2014-01-14 04:40:15

标签: r gwidgets

我有以下代码来选择输入和输出文件夹的目录。

require(gWidgets2RGtk2)

input=NULL
win = gwindow("Stage 1")
g = ggroup(horizontal=FALSE,cont=win)
  g1=ggroup(cont=g)
    svalue(input)<-gbutton("Input folder",cont=g1,expand=TRUE,handler=function(...) {
      input=gfile(type="selectdir")
      gmessage(paste0("Input directory set to ",input))
      input
    })
g2=ggroup(cont=g)
    gbutton("Ouput folder",cont=g2,expand=TRUE,handler=function(...) {
      output=gfile(type="selectdir")
      gmessage(paste0("Output directory set to ",output))
    })

但是,在运行时,代码不会返回输入和输出文件夹目录。谁能告诉我这里我做错了什么?

1 个答案:

答案 0 :(得分:5)

详细说明我的评论,以下是使用环境和<<-

的示例
require(gWidgets2)
options(guiToolkit="RGtk2")

input <- NULL                           # global
e <- new.env()                          # environment

win = gwindow("Stage 1")
g = ggroup(horizontal=FALSE,cont=win)

gbutton("Input folder",cont=g,handler=function(...) {
  value <- gfile(type="selectdir")
  gmessage(paste0("Input directory set to ",value))
  ## assign via <<-
  input <<- value
  ## assign to an environment
  e$input <- value
})

gbutton("What is stored?", cont=g, handler=function(...) {
  print(sprintf("The global variable has %s", input))
  print(sprintf("The environment stores %s", e$input))
})