在gbasicdialog中引用gedit的值

Question

我正在嘗試創建一個接口，用戶可以在其中鍵入一個數字以便腳本運行。但是，我無法檢索鍵入gedit的值。誰能幫我？下面是我做了什麼：

require(gWidgets2RGtk2) #Load package 
w=gbasicdialog("key number") 
a<-gedit("1",cont=w,handler=function(h,...){number<-svalue(a)}) 
visible(w)=TRUE 

Answer 1

我在這裏創建，2的gedit和使用按鈕與其他值更新一個值：

w <- gwindow("test") 
g <- ggroup(cont=w, horizontal=FALSE) 
x <- gedit("20",cont=g) 
gbutton("changevalue",cont=g,handler=function(h,...) { 
    svalue(e) <- svalue(x) 
}) 
e <- gedit("", cont=g) 

Answer 2

我在這裏做與jverzani建議的相同

require(gWidgets2RGtk2) #Load package 
w = gbasicdialog("key number") 
a <- gedit("1",cont=w) 
addHandlerKeystroke(a, handler=function(h,..) { 

    number <- svalue(a) 
    print(number) 
}) 
visible(w)=TRUE