Проблемы с назначением обработчиков по петле

Question

На обратной стороне How to add a context menu to a `gframe`?, я пытаюсь создать три разных объекта gframe с различными обработчиками контекстного меню. Чтобы избежать дублирования кода, я делаю это через цикл.

Рассмотрим минимальный пример:

require(gWidgets2) 
require(gWidgets2RGtk2) 
w <- gwindow() 
gg <- gvbox(cont=w)     

f_lyt_ctab <- list() 
l_lyt_ctab <- list() 

h_ctab_clear <- function(field.nr=NULL){ 
    stopifnot(!is.null(field.nr)) 
    print(field.nr) 
} 

lyt_ctab <- glayout(homogeneous=F, cont=gg, expand=TRUE, fill=T) 
field.nms <- c("Row Fields", "Column Fields", "Values") 
for(i in 1:3){ 
    lyt_ctab[1,i, expand=TRUE, fill=T] <- 
     f_lyt_ctab[[i]] <- gframe("", horizontal=FALSE, 
            container=lyt_ctab, expand=TRUE, fill=T) 
    ##have gframe with custom label (and context menu) 
    l_lyt_ctab[[i]] <- glabel(field.nms[i]) 
    tooltip(l_lyt_ctab[[i]]) <- paste(
     "Right-click on", field.nms[i], "to clear field variables") 
    print(i) 
    print(field.nms[i]) 
    add3rdmousePopupMenu(l_lyt_ctab[[i]], 
         list(a=gaction("Clear field", icon="clear", 
             handler=function(h, ...){ 
              h_ctab_clear(field.nr=i) 
             }))) 
    f_lyt_ctab[[i]]$block$setLabelWidget(l_lyt_ctab[[i]]$block)   # the voodoo 
    l_lyt_ctab[[i]]$widget$setSelectable(FALSE)   # may not be needed 
} 

Беда в том, что по какой-то причине

handler=function(h, ...){ h_ctab_clear(field.nr=i) })

, кажется, не получить передается правильное i значение. Это всегда 3. Таким образом, в зависимости от контекстного меню, выполняется только h_ctab_clear(field.nr=3).

Я в тупике, если по той простой причине, что всплывающие подсказки gframe правильны. Но не обработчик, связанный с каждым контекстным меню.

Я подозреваю какой-то объем или аналогичную проблему с h_ctab_clear(field.nr=i), но я не уверен, что не так?

Answer 1

Я бы предположил, что add3rdmousePopupMenu возможно выполняет вашу handler функцию и оценивает ее в другом контексте. В этот момент он не может решить i, потому что это свободная переменная в теле функции, а исходная среда оболочки больше недоступна. Одно из возможных решений заключается в том, чтобы явно создать корпус, который содержит значение i. Чтобы сделать это проще, мы можем создать вспомогательную функцию.

makehandler <- function(i) { 
    force(i); 
    function(h, ...){ 
     h_ctab_clear(field.nr=i) 
    } 
} 

Эта функция будет окружать i, а затем возвращает функцию, которую можно использовать в качестве обработчика. После этого вы можете использовать его как

add3rdmousePopupMenu(l_lyt_ctab[[i]], 
    list(a=gaction(
     "Clear field", 
     icon="clear", 
     handler=makehandler(i) 
    )) 
)