r - R : gWidgets でマウスの右クリックを制御する方法

Question

gWidget GUI で、マウスの右クリックの機能を見てきました

1. コピー
2. 保存

その Save ハンドラーを使用して、表示されているデータセットを table に保存するにはどうすればよいですか? 以下の画像を参照してください。

また、私のコードでは、graphicsspane1 <- 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. 右クリックして、データの保存を試みます。

その保存とコピーボタンとの関係を作成するにはどうすればよいですか、保存にもっと焦点を合わせます