在 gWidgets 中切换一组图标

Question

自适应 an example 我可以像这样切换图标的显示：

reject <- "D:/Pictures/web/close32.png"
accept <- "D:/Pictures/web/open32.png"
w= gwindow()
g1 <- ggroup(horizontal=TRUE, cont=w)
icon <- gimage(reject,cont=g1)
state <- FALSE # a global
changeState <- function(h,...) {
   if(state) {
     svalue(icon) <- reject
     } else {
       svalue(icon) <- accept
       }
   state <<- !state
}
addHandlerClicked(icon, handler=changeState)

但是，我想让它与一组图标一起使用 example 3x3 icon grouping http://cran.r-project.org/web/packages/gWidgets/vignettes/gWidgets.pdf 这样每个图标都可以切换，我可以将图标的状态检索为矢量。目的是创建一个图形选择器，用于选择成对的观察结果以对其进行分析。这是我的尝试。它显示正确，但不响应单击以更改状态。我认识到我混淆了处理程序和操作参数如何一起工作，希望对这段代码进行任何澄清和修复。

reject <- "D:/Pictures/web/close32.png"
accept <- "D:/Pictures/web/open32.png"
w= gwindow()
g1 <- ggroup(horizontal=TRUE, cont=w)
lyt <- glayout(cont=g1, spacing=10)
icon <- rep(reject,times=9)
state <- rep(FALSE, times=9)

changeState <- function(h,...) {
  if(state[index]) {
    svalue(icon[index]) <- reject
  } else {
    svalue(icon[index]) <- accept
  }
  state[index] <<- !state[index]
}

for(i in 1:3){
  for(j in 1:3){
    ind <- (i-1) * 3 +j
    lyt[i,j] <- gimage(icon[ind], cont=lyt)
    addHandlerClicked(lyt[i,j], handler=changeState, action= index <-ind)
  }  
}

1c: http://i.stack.imgur.com/4kbwK.png

Answer 1

必须从处理程序 (index <- h$action) 中的 h$action 中检索 index 值。同样，这个位 action=index <- ind 只需 action=ind.

在 gWidgets 中切换一组图标

toggling a group of icons in gWidgets

r

icons

handler

gwidgets