如何有效使用Shiny R中的观察功能

Question

我正在以闪亮的方式编写Web应用程序，但不确定要为条件面板编写高效的代码。我想发生的是，如果用户在单选按钮上单击“是”，则将填充更多输入。我最初在Ui中使用“ conditionalPanel”，然后购买了5个uiOutputs。但是，我注意到renderUi在应用程序启动时运行，即使按钮未显示“是”。我已经更改了代码，所以我不需要条件面板，但是我看到了同样的事情。这样有效吗？我将有多个uiOutputs，这里仅举一个例子。

UI.R

radioButtons("add_indicator1", "Add long indicators", choices = c("No", "Yes")),
uiOutput("long1"),

SERVER.R

button1 = reactive({
input$add_indicator1 
})

output$long1 = renderUI({
if(button1() == "No"){NULL
}else{selectInput   ("indicator1", "Select the first long indicator", 
choices = c("Choices" = "", long_indicators))}
})