R组合框用于选择聚类数

Question

当用户选择数字时，如何使用2,3,4,5这样的数字填充组合框，之后用聚类编码的按钮将从组合框中获取所选数量的聚类。

需要帮助。

Answer 1

如果有人想要答案，这里是使用gWidgets2的草图：

w <- gwindow()
g <- gvbox(cont=w)
e <- gedit("5", cont=g, coerce=as.integer)
cb <- gcombobox(1:5, cont=g)
b <- gbutton("do clustering", cont=g)

addHandlerChanged(e, handler=function(h,...) {
  ## check svalue(e) is non-NA
  cb[] <- seq_len(svalue(e))
})

addHandlerClicked(b, handler=function(h,...) {
  print(sprintf("Do clustering with %s", svalue(cb)))
})