时间戳

首页 > 解决方案 > 反应性地过滤/子集闪亮的数据框

r - 反应性地过滤/子集闪亮的数据框

问题描述

我想过滤一个数据框，以便我只选择分类变量包含闪亮应用程序用户选择的值的行。

这是一个可重现的示例：

## app.R ##
library(shiny)
library(shinydashboard)
library(tidyverse)
library(DT)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    selectInput("cut", "Type of cut",
                c("All",as.character(unique(diamonds$cut))), selected = "All", 
                multiple = TRUE)
  ),
  dashboardBody(
    DT::dataTableOutput("table")
  )
)

server <- function(input, output) { 

  selectdata <- reactive({
    diamonds %>% 
      filter(ifelse(any(input$cut == "All"), cut %in% unique(diamonds$cut),
                    cut %in% input$cut))
  })

  output$table <- DT::renderDT({
    selectdata()
  }, options = list(scrollX = TRUE))

}

shinyApp(ui, server)

该应用程序运行时没有错误，但是当用户删除“全部”并选择“Premuim”和“Good”时，什么也没有出现。但是，当用户选择“理想”时，所有行都会显示。我似乎看不出我做错了什么。

标签： rshiny

解决方案

我ifelse用简单的if条件代替。我想这更安全，因为管道filter然后使用ifelse可能会给您带来错误。考虑这个服务器代码：

library(shiny)
server <- function(input, output) { 
    selectdata <- reactive({
        # Give back original data (no filter is needed)
        if (any(input$cut == "All")) {
            diamonds
        } else {
            # Subset data
            # You can also use: base::subset(diamonds, cut %in% input$cut)
            dplyr::filter(diamonds, cut %in% input$cut)
        }
    })
    output$table <- DT::renderDT({
        selectdata()
    }, options = list(scrollX = TRUE))
}

推荐阅读