R輝いている：反応している複数の入力{}

Question

こんにちは、私はかなりシャイニーに新しいです。私はテーブルにデータを表示する私のユーザーのための2つのインタラクティブなselectInputsを作成しようとしています。ここに私のコードは次のようになります。 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())}) 

}) 

私は、コードを実行すると、国のために、何も時に起こりませんが、唯一のプラットフォーム上の選択は、正常に動作私は選択をする。私がここで作っている愚かな間違いに関するアイデア？あまり前もってありがとう！

Answer 1

switchの結果をdfに割り当てるようにしてください。現在、2つのswitchは接続されておらず、reactiveは2つ目の結果のみを返します。

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

Answer 2

ない何を求めているが、私はあなたがこのようなコードを向上させることができると思います。

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