Shiny：SelectizeInputの選択肢の条件付きアップデートに関する問題

Question

出力に影響を与えるオプションを選択したいと思います。ここには2つのオプションがあります：選択するカー、シリンダー。選択したオプションに基づいて、選択する選択肢が異なります。

library(shiny) 

mtcars$cars <- rownames(mtcars) 

ui <- fluidPage(
    title = 'Select experiment', 
    sidebarLayout(
    sidebarPanel(
     radioButtons("selectOpt", "Want to select:", 
        list("Car"='car', "Cylinders"='cyl'), 
        selected = 'car'), 

     conditionalPanel(
     condition = "input.selectOpt=='car'", 
     selectizeInput(
      inputId = "sel_car", 
      label = "Select a Car", 
      choices = mtcars$cars 
     )), 
     conditionalPanel(
     condition = "input.selectOpt=='cyl'", 
     selectizeInput(
      inputId = "sel_cyl", 
      label = "Select Cylinders", 
      choices = unique(mtcars$cyl) 
     ) 
     ) 
    ), 
    mainPanel(
     helpText('Output of the examples in the left:'), 
     verbatimTextOutput('ex_out') 
    ) 
) 
) 

server <- function(input, output) { 

    output$ex_out <- renderPrint({ 
     if(!is.null(input$sel_car)){ 
     cat(input$sel_car,input$sel_cyl,'\n') 
     mtcars[mtcars$cars == input$sel_car,] 
     }else if(!is.null(input$sel_cyl)){ 
     mtcars[mtcars$cyl == input$sel_cyl,] 
     } 
    }) 
} 

shinyApp(ui, server) 

はしかし、私はいつもこの二つのオプションが選択されたオプションを持っていることを観察しました。これは出力の最初の行に表示されます（ソースcat(input$sel_car,input$sel_cyl,'\n')）。

カーがシリンダオプションの最初の選択は、選択されてしまった、選択されています。

シリンダーオプションを選択すると、車のオプションマツダRX4の最初の選択肢も選択しまいました。

どのように私は両方のifとelse ifセクションを評価することができるだろうというように、最初の選択肢FOデフォルトの選択を避けるために？

Answer 1

シングル選択select(ize)Input()は常に選択されたオプションを持っています。 ?selectInputから：

選択
ザ最初に選択された値（又は複数の値であれば複数= TRUE）。指定されていない場合、デフォルトは単一選択リストの最初の値になり、複数選択リストの値はデフォルトになりません。

私たちが '無効' の選択の並べ替えを挿入することができた後、あなたがしている機能を取得するには、次の

selectizeInput(
    inputId = "sel_car", 
    label = "Select a Car", 
    choices = c('No car' = 0, mtcars$cars) 
) 

をそしてif.. elseにそれをチェック：

if(input$sel_car != 0){ 
    cat(input$sel_car,input$sel_cyl,'\n') 
    mtcars[mtcars$cars == input$sel_car,] 
} 

完全なコード：

library(shiny) 

mtcars$cars <- rownames(mtcars) 

ui <- fluidPage(
    title = 'Select experiment', 
    sidebarLayout(
    sidebarPanel(
     radioButtons("selectOpt", "Want to select:", 
        list("Car"='car', "Cylinders"='cyl'), 
        selected = 'car'), 

     conditionalPanel(
     condition = "input.selectOpt=='car'", 
     selectizeInput(
      inputId = "sel_car", 
      label = "Select a Car", 
      choices = c('No car' = 0, mtcars$cars) 
     )), 
     conditionalPanel(
     condition = "input.selectOpt=='cyl'", 
     selectizeInput(
      inputId = "sel_cyl", 
      label = "Select Cylinders", 
      choices = c('No cylinder selected' = 0, unique(mtcars$cyl)), 
      selected = NA 
     ) 
    ) 
    ), 
    mainPanel(
     helpText('Output of the examples in the left:'), 
     verbatimTextOutput('ex_out') 
    ) 
) 
) 

server <- function(input, output) { 

    output$ex_out <- renderPrint({ 
    cat(input$sel_car) 
    if(input$sel_car != 0){ 
     cat(input$sel_car,input$sel_cyl,'\n') 
     mtcars[mtcars$cars == input$sel_car,] 
    }else if(input$sel_cyl != 0){ 
     mtcars[mtcars$cyl == input$sel_cyl,] 
    } 
    }) 
} 

shinyApp(ui, server)