在带有Rgtk2和ggraphics的RStudio gwidgets2中，绘图是否有一个伪橡皮筋框？

我想使用

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()

库（gWidgets2）
库（gWidgets2RGtk2）
选项（guiToolkit=“RGtk2”）
图书馆（“cairoDevice”）
默认情况下，MyPlot处于启用状态。我想这可能会关闭它：1）命名你的ggraphics对象（
nm Error in x[[value]]：下标越界我猜不出原因。nm$widget$setEvents出错吗？
nm（rsession.exe:13548）：Gtk CRITICAL**:Gtk_box_pack:assertion`child->parent==NULL'失败了……我在这里完全不了解。