r - 用于选择聚类数的 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)))
})