r - 我能对 Gtk-CRITICAL 错误做些什么？

Question

我正在编写一个小型数据库接口(interface)并想使用 glayout。
MWE:

require(gWidgets)
options("guiToolkit"="RGtk2")

###   The bowl
win     <- gwindow( "Fruits")
gui     <- glayout( container = win )

###   Fruit salad
gui[1,1] <- glabel( "Apple", cont = gui )
gui[1,2] <- gbutton( "Change", cont = gui )

nav1 <- function( gui )
{
  svalue( gui[1,1] ) <- "Banana" 
}

addHandlerClicked( gui[1,2], handler = function( h, ... )
{ 
  nav1( gui )
})

该功能似乎在那里，但我收到一个错误(或者它是一个警告？)消息

(R:14953): Gtk-CRITICAL **: IA__gtk_table_attach: assertion `child->parent == NULL' failed

我用 rseek(什么都没有)和谷歌(没有什么与我的具体问题相关)寻找解决方案。任何想法我可以做些什么来摆脱这些消息？或者我可以放心地忽略它们吗？

sessionInfo()
R version 2.15.2 (2012-10-26)
Platform: x86_64-pc-linux-gnu (64-bit)
...       
other attached packages:
[1] gWidgetsRGtk2_0.0-81 

Answer 1

它在这一行:

svalue( gui[1,1] ) <- "Banana"

你得到错误。如果你把它分成两个步骤:

tmp <- gui[1,1]
svalue( tmp ) <- "Banana" 

它消失了。这一定与 R 如何使用替换函数创建副本有关，但 gui[1,1] 引用的小部件是一个指针。无论如何，对此不太确定。