Question

我正在save的弹出菜单中查找ggraphics()功能的来源。任何人都可以帮助我吗？

Answer 1

保存代码位于svalue＆lt; - 方法中。对于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)

源代码保存图R; gWidgets

1 个答案: