R - Shiny Filter for 'All'の値

Question

Shiny Appにフィルタを入れる方法はありますか？Shinyは、すべてのデータを表示するように選択されていないと知っていますか？

次のようになりますアプリ生成

library(ggplot2) 
library(shiny) 
library(dplyr) 
diamonds <- diamonds 

#Unique cut dropdown 
cut <- sort(unique(diamonds$cut)) 

#Unique color 
color <- sort(unique(diamonds$color)) 

#Unique clarity 
clarity <- sort(unique(diamonds$clarity)) 

#Shiny App 

ui <- fluidPage(
    titlePanel("diamonds"), 
    fluidRow(
    column(3, 
     selectizeInput("CutSelect", "Cut", cut, selected = NULL, multiple = TRUE), 
     br(), 
     selectInput("ColorSelect", "Color", color), 
     br(), 
     selectInput("ClaritySelect", "Clarity", clarity) 
), 
tableOutput("results") 
) 
) 
server <- function(input, output) { 
output$results <- renderTable({ 
filtered <- 
    diamonds %>% 
    filter(cut == input$CutSelect, 
     color == input$ColorSelect, 
     clarity == input$ClaritySelect) 
filtered 
}) 
} 

shinyApp(ui = ui, server = server) 

：たとえば、ggplot2diamondsデータを使用して、私は次のように構築したデータを掃除しないと

を、方法があります「All」演算子をフィルタに追加すると、そのディメンションのフィルタがあるにもかかわらず、「All」が便利なインスタンスがあることがアプリに分かります。

カットの場合は、具体的には、selectizeInputを空白のままにしておくと、「すべて」または「フィルタなし」のタイプの取引として動作させることができます。

さらに役立つ情報を提供していただき、幸いです。

ありがとうございました。

Answer 1

空selectInput戻りNULLので、あなたはselectInput（すなわち1つ以上の値が選択されています）NULLない場合にのみフィルタリングを行うことができます：

server <- function(input, output) { 
    output$results <- renderTable({ 
    filtered <- diamonds 
    if (!is.null(input$CutSelect)) { 
     filtered <- filtered %>% filter(cut == input$CutSelect) 
    } 
    if (!is.null(input$ColorSelect)) { 
     filtered <- filtered %>% filter(color == input$ColorSelect) 
    } 
    if (!is.null(input$ClaritySelect)) { 
     filtered <- filtered %>% filter(clarity == input$ClaritySelect) 
    } 
    filtered 
    }) 
} 

その方法selectInputが空の場合（NULL）そのディメンションに対してフィルタリングは実行されません。

Answer 2

データを表示/フィルタリングする場合は、DTを使用することをおすすめします。 DTにはフィルタオプションが組み込まれています。このオプションを使用すると、テーブル内の値の1つまたは複数の値をフィルタリングできます。フィルターをテーブルの上部または下部に置くことができます。あなたの目的に合ったコードは次のとおりです。

library(ggplot2) 
library(shiny) 
library(DT) 
diamonds <- diamonds 

#Shiny App 

ui <- fluidPage(
      titlePanel("diamonds"), 
     fluidRow(
      dataTableOutput("results") 
     ) 
    ) 
server <- function(input, output) { 
    output$results <- DT::renderDataTable(filter='top',{ 
     diamonds 
    }) 
} 

shinyApp(ui = ui, server = server)