我正在编写一个闪亮的应用程序，我将一些用户输入数据传递给预测值的回归模型。我有一个actionButton，它告诉应用程序通过renderText函数更新预测并输出到textOutput。
ui <- fluidPage(
一堆selectInput语句
actionButton("run", "Estimate Hours"),
textOutput("out1")
)
在服务器部分，代码如下所示：
server <- function(input, output) {
observeEvent(input$run, {
..根据输入数据获得模型预测
output$out1 <- renderText({
paste("prediction is ", round(pred))
})
当我运行时，没有任何内容输出到out1。相反，有一个警告，表示输出$ out1＆lt; - renderText（{：将LHS强制转换为列表。中的警告。
但我检查了pred，它是一个数值变量，而不是LHS。这个警告意味着什么，为什么输出中什么都没有？