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 に答える