R glänzend: mehrere Eingänge in reaktiven {}

Question

Hallo, ich bin ziemlich neu in Shiny. Ich versuche, zwei interaktive selectInputs für meinen Benutzer zu erstellen, um Daten in der Tabelle anzuzeigen. Hier ist, was mein Code wie folgt aussieht: ui.R

library(shiny) 

shinyUI(fluidPage(

    sidebarLayout(
    sidebarPanel(

     selectInput("var", 
        label = "Country", 
        choices = c("ALL", "A2", "AE")), 
     selectInput("plat", 
        label = "Platform", 
        choices = c("ALL", "Android", "IPhonePlayer")) 
    ) 
    ), 
    mainPanel(

     tableOutput(
     "view")) 
) 
)) 

server.R

library(shiny) 
library(ggplot2) 
library(dplyr) 
df <- readRDS("data/df.rds") 

shinyServer(function(input, output) { 

datasetInput <- reactive({ 

    switch(input$var, 
      "ALL" = df, 
      "A2" = df %>% filter(country == "A2"), 
      "AE" = df %>% filter(country == "AE")) 


    switch(input$plat, 
      "ALL" = df, 
      "Android" = df %>% filter(platform == "Android"), 
      "IPhonePlayer" = df %>% filter(platform == "IPhonePlayer")) 



    }) 


    output$view <- renderTable({head(datasetInput())}) 

}) 

Wenn ich den Code ausführen, nur die Auswahl auf der Plattform richtig funktioniert, während für Land, nichts passiert, wenn Ich treffe die Auswahl. Irgendwelche Ideen, welche dummen Fehler ich hier mache? Vielen Dank im Voraus!

Answer 1

Versuchen Sie, das Ergebnis der ersten switch zu df zuzuweisen. Im Moment sind die beiden switch nicht verbunden, und die reactive gibt nur das Ergebnis der zweiten zurück.

df <- switch(input$var, 
     "ALL" = df, 
     "A2" = df %>% filter(country == "A2"), 
     "AE" = df %>% filter(country == "AE")) 

Answer 2

Nicht das, was Sie fordern, aber ich denke, Sie Ihren Code wie folgt verbessern:

datasetInput <- reactive({ 
    df %>% 
    filter(
     (input$var == 'ALL' | country == input$var) & 
     (input$plat == 'ALL' | country == input$plat) 
    ) 
})