R 源代码保存绘图器；格威吉特

我正在

ggraphics（）

中的弹出菜单中查找

save

函数的源代码。有人能帮我吗？

保存代码在S值中

  da <- getWidget(obj)
   wh <- daGetWidthHeight(da)
   da.w <- wh[1]
   da.h <- wh[2]
   pixbuf <- gdkPixbufGetFromDrawable(src=da$window, src.x=0, src.y=0,
                                      dest.x=0, dest.y=0, width=da.w,        height=da.h)


   out <- try(pixbuf$Save(filename = filename,type=extension), silent=TRUE)