r - 源代码保存图R；gWidgets

Question

我正在寻找save在弹出菜单中的函数来源ggraphics()。谁能帮我？

Answer 1

保存代码在 svalue<- 方法中。对于 gWidgetsRGtk2，它在 r-forge 上可用。github 站点将有 gWidgets2RGtk2 代码，但那里没有这样的功能。以下是我对您要查找的内容的猜测，但这是一种黑客攻击，因此请谨慎使用。（我很确定窗户不能有任何其他窗户覆盖它。）

  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)