条件が光っていない

Question

私はRと光沢を学んでいて、光沢のあるパッケージドキュメントhereのコードのいくつかを試してみようとしています。私は条件が私が追加した理由が私の状態に応答していない理由を把握しようとしています。 エラーが発生しないので、私は間違って何をしていますか？

ui <- fluidPage(
    uiOutput("ex") 
) 
server <- function(input, output) { 
    output$ex <- renderUI({ 
    tagList(
     selectInput("n","Please Select :", 
        choices = c("N","U","T")), 
     conditionalPanel(condition = "n"=="N", 
         textInput("inmean"," Mean:",0.25), 
         textInput("invsd","Sd", 0.02)), 
     conditionalPanel(condition = "n"== "U", 
         textInput("inmean","Mean:",0.25), 
         textInput("insd","Sd", 0.02)) 
    ) 
    }) 
} 
shinyApp(ui, server) 

Answer 1

個人的に私はこのようにはしません。私は、 "n"の入力を調べ、値を変更するためにupdateTextInput（）を使用するobserve（{}）ステートメントを使用します。

しかし、これはあなたが使っている方法で動作するようです：

ui <- fluidPage(

    selectInput("n","Please Select :", 
       choices = c("N","U","T")), 
    uiOutput('ex') 
) 
server <- function(input, output) { 
    output$ex <- renderUI({ 

     if(input$n == 'N'){ 
     tagList(
     textInput("inmean"," Mean:",0.25), 
     textInput("invsd","Sd", 0.02) 
     ) 
     }else if(input$n == 'U'){ 
     tagList(
     textInput("inmean","Mean:",0.2), 
     textInput("insd","Sd", 0.01) 
     ) 
     } 

    }) 

} 
shinyApp(ui, server)