0

我正在准备一个闪亮的应用程序。我有几个数据框，我在其中存储有关人口的数据，按年细分。因此，例如，table_2017存储 2017 年的table_2018数据、2018 年的数据等。

我想在表格中显示所有数据，并允许用户选择他感兴趣的年份。我想我会准备一个单选按钮，这样用户就可以选择他感兴趣的年份。

我试图在按钮 id 中隐藏源表名，然后将其传递给datatable()函数，不幸的是，此方法不起作用，因为它未被识别为数据框，我收到消息：

“数据”必须是二维的（例如数据框或矩阵）。

因此我的问题是：从按钮单选中选择数据源后如何更新数据表？也许有一些现成的工具（例如updatemenus用于情节）？

这是一个例子：

library(shiny)
library(DT)

ui <- fluidPage(
    
    radioButtons("years", "Choose year", inline = TRUE,
                 c("2017" = "table_2017",
                   "2018" = "table_2018",
                   "2019" = "table_2019")),
    DT::dataTableOutput("table")
       
)


server <- function(input, output) {
    
    a <- c("Region1","Region2","Region3","Region4")
    b <- c(100, 200, 300, 400)
    table_2017 <- data.frame(a,b)
    names(table_2017) <- c('Name', 'Population')
    
    c <- c("Region1","Region2","Region3","Region4")
    d <- c(500, 600, 700, 800)
    table_2018 <- data.frame(c,d)
    names(table_2018) <- c('Name', 'Population')
    
    e <- c("Region1","Region2","Region3","Region4")
    f <- c(900, 1000, 1100, 1200)
    table_2019 <- data.frame(e,f)
    names(table_2019) <- c('Name', 'Population')

    output$table <- DT::renderDataTable({
        
        data <- input$years
        datatable(data)
                        
        
    })
}


shinyApp(ui = ui, server = server)
4

1 回答 1

1

这很简单，只需添加get(data))

问题是input$years您的单选按钮只是一个字符向量，不能由DT::datatable. 使用get()，您可以访问 R 环境并评估数据帧，而不是 中的字符向量datatable。

然后你的表输出是

  output$table <- DT::renderDataTable({
    
    data <- input$years
    datatable(get(data))
    
    
  })

顺便说一句，您应该在闪亮的应用程序之外执行所有静态 R 代码。将数据框移到服务器函数之外或 global.R 文件中

于 2020-12-03T11:05:00.737 回答