如何根据 Shiny R 中的用户选择在 MainPanel 中显示数据？

Posted 2023-03-24

【中文标题】如何根据 Shiny R 中的用户选择在 MainPanel 中显示数据？

【英文标题】：How to display data in MainPanel based on user selection in Shiny R?

【发布时间】：2019-11-29 06:21:01

【问题描述】：

我的数据框如下所示，我想构建ShinyApp，这样当用户从 SidebarPanel 中选择系统时，只有信息。与所选系统相关的显示在mainpanel 中。目前，下面的应用程序在主面板中显示整个数据表。我是闪亮的新手，我不确定如何在 mainpanel 中隐藏数据表。

Shiny 中是否有可用的功能？

提供代码解释

数据帧

> df <- data.frame("Users" =c('A',"B","A",'C','B'), "Date" = c('17 Mar 2019','15 Mar 2019','11 Mar 2019','20 Apr 2019',"21 Apr 2019"), "Systems" = c("Sys1", "Sys1","Sys2","Sys3","Sys4"), stringsAsFactors = FALSE)
> df
  Users        Date Systems
1     A 17 Mar 2019    Sys1
2     B 15 Mar 2019    Sys1
3     A 11 Mar 2019    Sys2
4     C 20 Apr 2019    Sys3
5     B 21 Apr 2019    Sys4

应用到目前为止..

library(shiny)
library(DT)
library(dplyr)
ui <- basicPage(
  h2("Different Systems"),
  sidebarLayout(
    sidebarPanel(
      selectInput('slct',"Select System",choices = df$Systems)
  ),
  mainPanel(
  DT::dataTableOutput("mytable")
)
)
)
server <- function(input, output) 
  #df$system<-rownames(df$Systems)
  output$mytable = DT::renderDataTable(
    df %>%
      filter(stringr::str_detect(Systems, as.character(input$slct)))

  )



shinyApp(ui, server)

【参考方案1】：

选项 1：

您可以使用req() 确保input$slct 必须可用于要显示的表格。

您只需要更改您的服务器代码：

server <- function(input, output) 
    #df$system<-rownames(df$Systems)
    output$mytable = DT::renderDataTable(
        req(input$slct) # add this line
        df %>%
            filter(stringr::str_detect(Systems, as.character(input$slct)))

    )

选项 2：

您可以使用validate() 和need 提出要求并建议用户输入。

server <- function(input, output) 
    #df$system<-rownames(df$Systems)
    output$mytable = DT::renderDataTable(
        validate(need(input$slct,"Please Select System")) # add this line
        df %>%
            filter(stringr::str_detect(Systems, as.character(input$slct)))

    )

阅读这两篇文章了解更多信息：

https://shiny.rstudio.com/articles/validation.html https://shiny.rstudio.com/articles/req.html