在带有Rgtk2和ggraphics的RStudio gwidgets2中，plot有一个伪橡皮筋盒子？

Question

我想使用gwidgets2在一个框架中绘制一个橡皮筋盒子。与RStudio中的绘图不同，使用gwidgets2的帧中的绘图绘制了一个未绑定的橡皮筋盒。有时它会消失，有时它会保持绘制状态，具体取决于鼠标在鼠标向上移动的方向。造成这种情况的原因是什么，我可以获取或抑制这种禁果吗？我没有发现它有记录。

如果没有，是我使用locator()，getGraphicsEvent()或其他内容的最佳选择？

以下是显示它的代码。使用旋转按钮增加显示图，然后橡皮筋。

library(gWidgets2)
library(gWidgets2RGtk2)
options(guiToolkit="RGtk2")
library("cairoDevice")

MyPlot <- function()
{
  updateMyPlot <- function(h,...)
  {
    plot( 1:svalue(N), type="l")
  }

  BigGroup <- ggroup( container = TopWin )
  group <- ggroup( horizontal = FALSE, container = BigGroup )

  tmp <- gframe("N", container=group, expand=TRUE)
  N <- gspinbutton(from=1, to=10, container=tmp, handler = updateMyPlot)

  add( BigGroup, ggraphics() )
}

TopWin <<- gwindow("MAIN")

MyPlot()