在循环中渲染数据表

Question

它们都应该表现一样

library(shiny)

getData = function(name){
    if(name=='foo'){
        return(data.frame(foo=c('foo')))
    }else{
        return(data.frame(bar=c('bar')))
    }
}

ui <- fluidPage(
    DT::dataTableOutput(outputId = "foo"),
    DT::dataTableOutput(outputId = "bar")
)

server <- function(input, output) {
    for(item in c('foo','bar')){
        output[[item]] = DT::renderDT(getData(item))
    }
}

shinyApp(ui = ui, server = server)

我想在闪亮的应用中展示多个表，并且由于 相同的数据集（上面的示例中的“ bar”），特别是循环中的最后一个数据集。 似乎结构输出[[item]] = ...的行为不像我认为应该这样做，但我无法弄清楚发生了什么。

多谢！

Answer 1

您可以使用local如下所示

server <- function(input, output) {
  for(item in c('foo','bar')){
    local({
      item <- item
      output[[item]] = DT::renderDT(getData(item))
    })
    
  }
}