在Shiny的R代码计算中使用反应式输入

Question

我有一个闪亮的应用程序从ui读取输入，我无法跟进从我的代码中输入的数据。如下:

ui <- fluidPage(
...
selectInput("ISvModels", "Choose:", 
choices = c(1000,5000)),
)
server <- function(input, output) {
vModels <- reactive({input$ISvModels})
qtModels <- length(vModels)
qtModels
vtModels <- paste0("M",1:qtModels," n = ",vModels," scenarios")
vtModels
}

得到:

警告:as中出现错误。Vector:不能将'closure'类型强制转换为'character'类型的Vector

我尝试了各种各样的东西，从观察到渲染，但没有工作。似乎我遗漏了一些概念，希望你能帮助我。谢谢!

Answer 1

服务器需要输出，以某种方式将计算结果显示给用户。我们可以使用textOutput来实现这一点。

下面是一个最小的例子，显示了一个链接到文本框的下拉框。

library(shiny)
ui <- fluidPage(

#Dropdown
selectInput("ISvModels", "Choose:", choices = c(1000,5000)),

#Textbox
textOutput("mytext")

)
server <- function(input, output, session) {

#Prepare Textbox Content
output$mytext <- renderText({

qtModels <- length(input$ISvModels)
vtModels <- paste0("M", 1:qtModels, " n = ", input$ISvModels," scenarios")
return(vtModels)

}) 

}
shinyApp(ui, server)