ダイグラフと光沢のあるモジュール

Question

私は自分のUIとサーバーに光沢のあるモジュールを使用し始めています。私は、ダイアグラフの伝説の表示に特有の問題があります。

光沢のあるモジュールを使用する前に、自分のUIにグラフと凡例を表示するだけでした。私はモジュールを使用すると、動作を停止しました。ダイアグラフの伝説が反応出力ではないのだろうか？

ありません光沢のあるmoudles （作品）

...

tabPanel("Plot",dygraphOutput("plot1"), 

    textOutput("legendDivID")) 
... 

dygraphサーバコード：

output$plot1 <- renderDygraph({ 

    dygraph(dfplot())%>% 
    dyLegend(labelsDiv = "legendDivID", labelsSeparateLines = T)%>% 
    dyRangeSelector() 
    }) 

は今、私は私の光沢のあるモジュールをビルド

StockUI<-function(id, label= "aaa"){ 
    ns <- NS(id)#Named space 
... 
tabPanel("Plot",dygraphOutput(ns("plot1")), 
          textOutput(ns("legendDivID"))} 

Stock <- function(input,output,session){ 
... 
output$plot1 <- renderDygraph({dygraph(foo())%>% 
     dyLegend(labelsDiv = "legendDivID", labelsSeparateLines = T)%>% 
     dyRangeSelector() 
    }) 
} 

しかし、凡例は表示されなくなり、光沢のあるモジュールの外側でうまく動作します。

Answer 1

UI内のlegendDivIdはnsの中にラップされているため、サーバー内のnsにもラップする必要があります。サーバ内のnsは、server$nsによって評価することができます。これはうまくいくはずです：

output$plot1 <- renderDygraph({dygraph(foo())%>% 
     dyLegend(labelsDiv = session$ns("legendDivID"), labelsSeparateLines = T)%>% 
     dyRangeSelector() 
    })