在服务器逻辑中定义的列表应该用于下拉列表。
下面的代码应该显示这个想法。
# 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(models)。