有一个输入的字段取决于其它输入

Question

我有2个输入，说A和B.

我想B的“值”字段依赖于由用户对输入A.值

即，我对B的建议取决于我在A中学到的东西。

以下代码不起作用。我应该如何修复它？

shinyApp(
    ui = fluidPage(
    textInput("A", "Enter a string"), 
    textInput("B", "Enter another string", value = "Second"), 
    textOutput("curval") 
), 
    server = function(input, output) { 
    if (input$A == "foo"){input$B$value <- "bar"} 
    } 
) 

此问题也引发here。但它没有得到回答（尽管评论肯定有帮助）。

谢谢

Answer 1

您应该使用uiOutput和renderUI产生小部件依赖输入：

shinyApp(
    ui = fluidPage(
    textInput("A", "Enter a string"), 
    uiOutput("B_ui"), 
    textOutput("curval") 
), 
    server = function(input, output) { 
    output$B_ui <- renderUI({ 
     if (input$A=="foo") textInput("B","Enter another string",value="bar") 
     else textInput("B","Enter another string",value="Second") 
    }) 
    } 
)