服务器逻辑中定义的列表应该用于下拉列表。
以下代码应显示这个想法。
# server.R
shinyServer(function(input, output, session) {
output$models <- c("a","b","c")
...
})
#ui.R
require(rCharts)
...
shinyUI(pageWithSidebar(
...
sidebarPanel(
selectInput("select", "Your choice:", [models]),
...
))
是否有可能使这项工作?也许是一些纯文本输出,类似于renderText(模型)。
答案 0 :(得分:4)
如果用户更改其他输入时选项将动态更改,请在observe()调用中使用updateSelectInput。
如果选择在单个会话过程中不会改变但可能会从一个会话更改为下一个会话,请直接在shinyServer函数中使用updateSelectInput。
如果选择永远不会改变,你可以直接在ui.R中计算模型 - 它只是你正在编写的常规R代码。