1

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

我有多个使用 Quantmod 的 charSeries 包含 ggraphics 的 gnotebook 页面（选项卡）。我正在尝试更新单个 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")})
4

1 回答 1

2

您可以visible(ggXXX) <- TRUE在绘图之前调用。这将使该 ggraphics 设备成为当前设备。

于 2013-06-19T13:24:39.813 回答