r - R：如何在gWidgets中控制鼠标右键

Question

在gWidget GUI中，我看到了右键单击鼠标的功能

1. 复制
2. 节省

如何使用该 Save 处理程序将显示的数据集保存在表中？请参考下图：

同样在我的代码中，我使用了 graphicspane1 <- ggraphics(cont = group1)

请尽快提出答案

这是一个示例代码，

 library(cairoDevice)
 library(gWidgets)
 library(gWidgetsRGtk2)
 require(RGtk2)

 fun <- function(){
    tbl <- data.frame(A=c(1,2,3),X=c('A','B','C'))
    grid.draw(tableGrob(tbl, gp=gpar(fontsize=8, lwd=1.2)))
  }

  options(guiToolkit = "RGtk2")
  w        <-gwindow("GUI")
  g        <-ggroup(cont=w)
  plotbutton4 <- gbutton('Draw Table', cont = g, handler=function(h,...){
  fun()})
 graphic1 <- ggraphics(cont=g)

步骤： 1. 点击“绘制表格”按钮 步骤： 2. 右击并尝试保存数据。

我怎样才能与那个保存和复制按钮建立关系，更多地关注保存