Question

我想给用户一个编辑矢量的机会-添加或删除元素。我有一个问题，因为向量在用户操作后不会改变。

这是我的代码：

y <- c(1,2,3)
RO_window <- gwindow("Edit vector", visiable=TRUE) #, parent = MainWindow)
group <- ggroup(horizontal = FALSE, container =  RO_window)
tempRB <- gradio(y, container =group)
button1 <- gbutton("Delete", border = TRUE, container = group)
addHandlerClicked(button1, handler = function(h,...){
  x <- svalue(tempRB, index = TRUE)
  y <- y[! y %in% y[x]]
  print(y)
  return(y)
})

input_text <- gtext("", container = frame2, front.attr=list(style="bold"))   
button2 <- gbutton("Confirm", border = TRUE, container = group)
addHandlerClicked(button2, handler = function(h,...){
  y <- append(y, svalue(input_text))
  print(y)
  return(y)
})

调用print(y)时，将对向量进行严格的编辑，但是当我在此代码的上下文之外使用它时，它与开始时是相同的。

R：在调用addHandlerClicked（gWidgets）之后，向量不变

0 个答案: