有一个输入的字段取决于其它输入
问题描述:
我有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。但它没有得到回答(尽管评论肯定有帮助)。
谢谢
答
您应该使用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")
})
}
)