gWidgets-如何更新特定gnotebook页面上的ggraphics小部件

关于如何更新特定gnotebook页面上的ggraphics小部件的任何建议

我有多个gnotebook页面（选项卡），使用Quantmod的charSeries包含图形。我正在尝试更新各个gnotebook页面。但是，任何更改只应用于最后一页，而不应用于我想要的页面。下面是相关代码的示例。我尝试过使用svalue您可以调用

可见（ggXXX）
library("quantmod")
library ( gWidgets )
options ( guiToolkit="RGtk2" )
w <- gwindow("notebook example")
group <- ggroup(horizontal= FALSE, container = w)
notebook <- gnotebook(container=group)

symbol<-"EBT.AX"
getSymbols(symbol)

gg1<-ggraphics(cont=notebook, expand = TRUE, label="Trends")
   chartSeries(get(symbol),subset="last 2 months", name="Trends")
gg2<-ggraphics(cont=notebook, expand = TRUE, label="Momentum") 
   chartSeries(get(symbol),subset="last 2 months", name="Momentum")
gg3<-ggraphics(cont=notebook, expand = TRUE, label="Volatility") 
   chartSeries(get(symbol),subset="last 2 months",name="Volatile")

gbutton("update",container = group, handler = function(h,...) {
gg2 <- reChart(subset = "last 4 month", theme = "white")})