Исходный код save plot R; gWidgets

Question

Я ищу источник функции save во всплывающем меню в ggraphics(). Может кто-нибудь мне помочь?

Answer 1

Код сохранения находится в значении < - метод. Для 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)