r - 如何在 Shiny R 中有效地使用观察函数

Question

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

用户界面

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

服务器.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))}
})

标签： rshinyrstudioshinydashboard