R gWidgets2获取小部件的行号

Question

我在gWidgets2中使用glayout对象创建了一些行，其中包含一些对象。我希望用户能够在表格的任何位置添加新行。我在每一行的末尾都有一个按钮，它调用一个函数来直接在当前行之上添加新行。

我的问题是我使用循环来创建行，而且我不确定如何将当前行号传递给事件处理程序。下面的代码在事件处理程序中传递了我的循环索引＆＃39; i＆＃39;，但我知道这是错误的。

我有办法传递当前的行号吗？我知道我可以更改整个布局，以便用户输入他们之后添加一行的索引，但我想知道是否有办法这样做。

以下是“错误”的摘录。代码：

for (i in 1:nrows){
    r_tbl[i+1,1] <- glabel(i)
    r_tbl[i+1,2] <- gspinbutton(from=0, to=990, by=10, expand=TRUE)
    r_tbl[i+1,3] <- gspinbutton(from=9, to=999, by=10, expand=TRUE)
    r_tbl[i+1,6] <- gbutton('Add Bin', handler=function(h,...){add(i+1)})
}