我有一个带有区域 ggraphics 的 gui,我想创建一个子窗口,其中的图形在区域图形中处于活动状态,但是 dev.copy 和 svalue 不起作用
options(guiToolkit = "RGtk2")
win<- gwindow ("window", width=1350,height=680,parent=c(1,1))
buttongraph<-gbutton("Click for enlarge graph",cont=win)
wingraphic<- ggraphics(cont=win)
hist(rnorm(100))
addHandlerChanged(buttongraph,handler=function(h,...){
subwin<- gwindow("subwin")
subwingraph<-ggraphics(cont=subwin)
svalue(wingraphic)
})
或者
dev.copy(wingraphic)