r - ggraphicsでdev.copyまたはsvalueをどのように利用できますか?

Question

領域 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)