Question

我是制作gui的新手，我需要一些帮助。

我有一个gcombobox，我想在点击按钮计算

后知道用户的选择

library(gWidgets)

city <- c("NY", "Tokyo", "Rome")

#main window
window <- gwindow(title = "stackoverflow",
                  visible=TRUE)

group <- ggroup(cont = window)
lay <- glayout(cont=group) 

lay[1,1] <- "City:"
lay[1,2] <- gcombobox(city, 
              selected=0L, 
              cont=lay)

lay[2,2] <- gbutton(text = "Calculate",
            border = TRUE,
            cont = lay,
            handler = function(h,...){

            #here i want to know the users choice(NY, Tokyo, Rome). 
            #for example: if(combobox == "Rome") a = 5


            })

提前Tnx

Answer 1

尝试使用lay[1,2]

获取svalue的值

例如

lay[2,2] <- gbutton(text = "Calculate",
                border = TRUE,
                cont = lay,
                handler = function(h,...){
                  combobox=svalue(lay[1,2])
                if(combobox == "Rome")  {
                  a = 5} else {
                    a=0
                  }
                print(paste(combobox , a))
              })

r gWidgets如何获得gcombobox值？

1 个答案: