переключая группу иконок в 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) 
    } 
} 

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

Answer 1

Значение index должны быть извлечены из h$action в обработчике (index <- h$action). Кроме того, этот бит action=index <- ind должен быть только action=ind.