如何使用r获取下拉列表的选定值

Question

我的数据为df，有4个变量（长，纬度，日期，群集），我想构建可以绘制所选群集的GUI。对于选定的群集，我使用了下拉列表，但是如何获取下拉列表的选定值？例如

  

a＆lt; - unique（data $ cluster）

     

一

     

1,2,3,4,5

当我选择5时，我想将所选值添加到新变量

require(tcltk)
tclRequire("BWidget")

tt <- tktoplevel()
tkwm.title(tt,"Test GUI")
tkgrid(tklabel(tt,text="Test label"))
ttframe<-tkframe(tt,relief="groove",borderwidth=2)

z<-unique(data$cluster)

comboBox<-tkwidget(ttframe,"ComboBox",editable=FALSE,values=z)
tkgrid(comboBox)
tkgrid(ttframe)

tkgrid(tklabel(tt,text=""))
tkfocus(tt)

使用addhandlerchange（）??但怎么样？在哪里我可以得到一些参考或示例

我自己很好地解决了这个问题same topics 这里是代码

library(gWidgets)
options(guiToolkit="tcltk") ## or RGtk2 or Qt

w <- gwindow("Clustering")
tbl <- glayout(cont=w, horizontal=FALSE)

cluster<- unique(data$cluster)

tbl[1,1] <- "Cluster"
tbl[1,2] <- (cb1 <- gcombobox(cluster, cont=tbl))

tbl[1,3] <- (b <- gbutton("Ok", cont=tbl))

addHandlerClicked(b, handler=function(h,...) {
  cluster_pilihan <- svalue(cb1)
  assign("cluster_pilihan", cluster_pilihan, envir = .GlobalEnv)
  })