Filter one selectInput in base alla selezione da un altro selectInput?

Question

Ho due selectInput s e desidero la selezione nel primo (Marchio) per modificare le selezioni possibili nella seconda (Candy). Ad esempio, se qualcuno sceglie "Nestlé" nella prima casella di input, solo le barre di caramelle Nestle verranno visualizzate nella seconda casella. La mia tabella di dati ha una colonna per Marca e una colonna per il tipo di barra di Candy.

Ho il seguente codice per iniziare, ma questo mostra TUTTE le scelte, indipendentemente dalla selezione.

selectInput(inputId="brand", 
        label="Brand:", 
        choices=as.character 
        (unique(candyData$Brand)), 
        selected = "Nestle" 
    ), 
    selectInput(inputId="candy", 
       label="Candy:", 
       choices=as.character 
       (unique(candyData$Candy)), 
       selected = "100Grand" 

Il set di dati è simile al seguente:

Brand  Candy 
Nestle  100Grand 
Netle  Butterfinger 
Nestle  Crunch 
Hershey's KitKat 
Hershey's Reeses 
Hershey's Mounds 
Mars  Snickers 
Mars  Twix 
Mars  M&Ms 

Aggiornato Domanda Come posso aggiornare il ValueBox nella mia Dashboard basato sul successivo filtraggio?

output$count <- renderValueBox({ 

    valueBox(
     value = nrow(candyData), 
     subtitle = "Number of Candy Bars", 
     icon = icon("table") 
    ) 
    }) 

Answer 1

Ecco uno approccio:

library(shiny) 
library(shinydashboard) 
## 
ui <- shinyUI({ 
    sidebarPanel(

    htmlOutput("brand_selector"), 
    htmlOutput("candy_selector")) 

}) 
## 
server <- shinyServer(function(input, output) { 
    candyData <- read.table(
    text = "Brand  Candy 
    Nestle  100Grand 
    Netle  Butterfinger 
    Nestle  Crunch 
    Hershey's KitKat 
    Hershey's Reeses 
    Hershey's Mounds 
    Mars  Snickers 
    Mars  Twix 
    Mars  M&Ms", 
    header = TRUE, 
    stringsAsFactors = FALSE) 

    output$brand_selector <- renderUI({ 

    selectInput(
     inputId = "brand", 
     label = "Brand:", 
     choices = as.character(unique(candyData$Brand)), 
     selected = "Nestle") 

    }) 

    output$candy_selector <- renderUI({ 

    available <- candyData[candyData$Brand == input$brand, "Candy"] 

    selectInput(
     inputId = "candy", 
     label = "Candy:", 
     choices = unique(available), 
     selected = unique(available)[1]) 

    }) 

}) 
## 
shinyApp(ui = ui, server = server) 

---

Aggiornato:

è possibile modificare la definizione ui essere

ui <- shinyUI({ 
    sidebarPanel(

    htmlOutput("brand_selector"), 
    htmlOutput("candy_selector"), 
    valueBoxOutput("count")) 

}) 

e aggiungi quanto segue a server:

output$count <- renderValueBox({ 

    available <- candyData[candyData$Brand == input$brand, ] 

    valueBox(
    value = nrow(available), 
    subtitle = sprintf("Number of %s Candy Bars", input$brand), 
    icon = icon("table")) 

})