R parlak: reaktifde çoklu girişler {}

Question

Merhaba Şimşek için oldukça yeni. Kullanıcının tablodaki verileri göstermesi için iki etkileşimli selectInputs oluşturmaya çalışıyorum. Ben kodu çalıştırdığınızda

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())}) 

}) 

, yalnızca platformda seçme düzgün çalıştığını 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 ülke için hiçbir şey ne olur ise,: Burada gibi benim kod benzediğini olduğunu Seçimi ben yaparım. Burada ne kadar aptalca hata yaptığım hakkında bir fikrin var mı? Şimdiden çok teşekkür ederim!

Answer 1

İlk switch sonucunu df'a atamayı deneyin. Şu anda, iki switch bağlı değil ve reactive sadece ikinci olanın sonucunu döndürür.

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

Answer 2

için soruyorsunuz Ne değil, ama böyle kodunuzu artırabilir düşünüyorum:

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