-1

I am looking for the source of the save function in the pop up menu in a ggraphics(). Can anyone help me?

Metrics
  • 15,172
  • 7
  • 54
  • 83
user2670757
  • 55
  • 1
  • 6

1 Answers1

3

The save code is in the svalue<- method. For gWidgetsRGtk2 it is available on r-forge. The github site would have gWidgets2RGtk2 code, but there is no such function there. The following is my guess as to what you are looking for, but it is a hack so use with caution. (I'm pretty sure the window can't have any other window covering it.)

  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)
jverzani
  • 5,600
  • 2
  • 21
  • 17