光沢のあるgrid.arrangeでPlotOutputを使用するには？

Question

これは私がgrid.arrangeを使って整理したいプロットのリストです。

p <- lapply(1:10, function(i) doPlot(comb_labels[1, i], comb_labels[2, i])) 

doPlotを使用して生成されたプロットは、Shinyのブラシおよびホバー反応変数の変化に反応します。

Apparantly、ブラシとホバーだけのようPlotOutputと宣言することができます。私はこのようなカスタムグリッドのプロットを持っていると思い

plotOutput(plotname, height = 280, width = 250, hover = "plot_hover", brush = "plot_brush", click = "plot_click") 

：

grid.arrange(p[[1]], ng, ng, ng, 
        p[[2]], p[[3]], ng, ng, 
        p[[4]], p[[5]], p[[6]] , ng, 
        p[[7]], p[[8]], p[[9]], p[[10]]) 

これは、画像を返しますどんな動的要素もなしに。

grid.arrangeをPlotOutputと統合するにはどうすればよいですか、それとも何か別の方法がありますか？

私のコードの形式は次のようになります。https://gist.github.com/wch/5436415

Answer 1

保存値がgrid.arrangeによって返され、その後printそれは：

output$shinyPlotObject <- renderPlot({ 

    ... 
    p = grid.arrange(p[[1]], ng, ng, ng, 
        p[[2]], p[[3]], ng, ng, 
        p[[4]], p[[5]], p[[6]] , ng, 
        p[[7]], p[[8]], p[[9]], p[[10]]) 

    print(p) 
}