服务器功能模块中的闪亮动态图

Question

我想用闪亮的用户输入标签/图表创建动态标签/图表

按照Winston Chang的例子https://gist.github.com/wch/5436415/

我能够正确创建ui和服务器端功能。 我的服务器函数包含在一个函数模块中，所以我需要使用命名空间来包含ui elememt id，但是这似乎导致了我的动态图没有显示在相应标签中的问题。

例如，如果我的代码看起来像这样，它就不会显示图

  for (i in 1:input$n) {
    local({
      my_i <- i
      plotname <- paste0("TabPlot", my_i) # I tried session$ns(paste0("TabPlot", my_i)), but it does not work as well.
      output[[plotname]] <- renderDygraph({
        return(some dygraph)
      })
    })
  }

但是如果我的代码看起来像这样，它会显示图

output$TabPlot1 <- renderDygraph({
            return(some dygraph)
          })
output$TabPlot2 <- renderDygraph({
            return(some dygraph)
          })

但是，当然，我不能让它变得有动力。

有关命名空间问题的任何建议吗？谢谢！

-------------更新-------------------

我把整个for循环放在一个被动环境中，比如observerEvent（输入$ Submit，{for loop}） 它有效。