ドロップダウンには、サーバー ロジックで定義されたリストを使用する必要があります。
次のコードはアイデアを示しているはずです。
# 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) に似たプレーン テキスト出力の可能性があります。