Любые предложения по обновлению виджета ggraphics на определенной странице gnotebook.
У меня есть несколько страниц (вкладок) gnotebook с графикой, использующей charSeries Quantmod. Я пытаюсь обновить отдельные страницы gnotebook. Однако любое изменение применяется только к последней странице, а не к странице, которую я хочу. Пример соответствующего кода ниже. Я пытался использовать svalue‹- или focus‹-, чтобы переместить фокус на соответствующую страницу перед обновлением, но это не работает.
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")})
