有条件的不工作在闪亮

Question

我正在学习 R 和 Shiny，并且一直在尝试使用 Shiny 包文档 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() 来更改值。

但这似乎适用于您使用的方法：

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)