R 表的动态数组

我需要在Shiny中显示N个表，其中N基于用户输入

我最初的想法是这样做：

用户界面 服务器.r 但我相信有更好的办法。让我看看灯光R/闪亮专家

更新：

感谢nongkrong的精彩链接：

我有一点麻烦，让它工作的反应，但这不是真正的要求

技巧似乎是在renderUI（）块中注入dataTableOutput（）元素。效果非常好

---

然后您可以将renderDataTable（）块定向到刚才定义的上述标记，这也非常简单。

我曾经使用Lappy创建了多个窗口小部件，因此只使用了比for循环稍微复杂的方法，因为我没有看到其他好的替代方法。动态输出呢？您可以调整此示例，其中要显示的绘图数量由用户决定。我认为关键是使用

tagList

fluidPage(
  fluidRow(
    column(width=4
       ,dataTableOutput("table1")
       ,dataTableOutput("table2")
       ...
       ,dataTableOutput("table10")
    )
  )
)

shinyServer(function(input, output) {
    output$table1 <- renderDataTable({ ... })
    output$table2 <- renderDataTable({ ... })
    ...
    output$table10 <- renderDataTable({ ... })
}

for(1:N) {
    ,dataTableOutput("table"+N)
}