R Shiny - 创建一个表并使用下拉菜单中选择的数据框数据填充它

Question

我正在通过 R & R Shiny 继续我的斗争，并有一个问题。我有一个数据框列表。我想使用此列表中数据框的名称来填充 selectInput，并根据数据框的选择，我希望能够查看选定的数据框，并查看其列的统计信息。 到目前为止，我已经找到了这段代码

shinyServer(function(input, output) {

    reactive_df <- reactive({
      if(input$x=="All")
        return df
      else
        return(select(df, starts_with(input$x)))
    }

    output$x <- renderDataTable(reactive_df())

}

但它并不完全符合我的要求。有谁知道如何创建表格和摘要？

Answer 1

你可以看看mastering shiny:

ui <- fluidPage(
  selectInput("dataset", label = "Dataset", choices = ls("package:datasets")),
  verbatimTextOutput("summary"),
  tableOutput("table")
)

server <- function(input, output, session) {
  output$summary <- renderPrint({
    dataset <- get(input$dataset, "package:datasets")
    summary(dataset)
  })
  
  output$table <- renderTable({
    dataset <- get(input$dataset, "package:datasets")
    dataset
  })
}

shinyApp(ui=ui,server=server)

如果您有自己的数据集列表，可以使用[[...]] 代替get：

datasetlist <- list(iris = iris, mtcars = mtcars)
data <- datasetlist[[input$datasetname]]

例如，如果input$datasetname=='iris'，您可以检查这是否会将iris 分配给data 以进行进一步处理：

data <- datasetlist[["iris"]]
data

另一种选择是：

data <- eval(parse(text=input$datasetname))