Lọc một selectInput dựa trên lựa chọn từ một selectInput khác?

Question

Tôi có hai số selectInput s và tôi muốn lựa chọn trong phần đầu tiên (Thương hiệu) để thay đổi các lựa chọn có thể có trong phần thứ hai (Kẹo). Vì vậy, ví dụ: nếu ai đó đã chọn "Nestle" trong hộp nhập đầu tiên, thì chỉ các thanh kẹo Nestle mới hiển thị trong hộp thứ hai. Bảng dữ liệu của tôi có một cột cho Nhãn hiệu và một cột cho loại thanh kẹo.

Tôi có mã sau để bắt đầu, nhưng điều này cho thấy TẤT CẢ các lựa chọn, bất kể lựa chọn.

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" 

Bộ dữ liệu trông giống như sau:

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

Cập nhật Câu hỏi Làm thế nào để cập nhật các ValueBox trong Bảng điều khiển của tôi dựa trên việc lọc tiếp theo?

output$count <- renderValueBox({ 

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

Answer 1

Dưới đây là một cách tiếp cận:

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) 

---

Cập nhật:

Bạn có thể thay đổi định nghĩa ui là

ui <- shinyUI({ 
    sidebarPanel(

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

}) 

và thêm thông tin sau vào 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")) 

})