gWidgets - howdo Я обновляю виджет ggraphics на определенной странице gnotebook

Question

Любые предложения по обновлению виджета ggraphics на странице конкретного gnotebook.

У меня есть несколько страниц gnotebook (tabs) contaioning ggraphics, используя charSeries от Quantmod. Я пытаюсь обновить отдельные страницы gnotebook. Однако любое изменение применяется только к последней странице, а не к той странице, которую я хочу. Пример соответствующего кода ниже. Я пробовал использовать svalue < - или фокус < - чтобы сосредоточиться на соответствующей странице до обновления, но это не работает.

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")}) 

Answer 1

Вы можете позвонить по телефону visible(ggXXX) <- TRUE перед отправкой. Это сделает устройство ggraphics текущим.