在我的Shiny应用程序中，我目前正在加载一个.RData文件，并在下拉选择器输入中显示保存在.RData文件中的不同线性模型。用户可以选择一些内容，我可以打印出他们选择的内容，类似于Shiny教程。
我想使用具有预测功能的用户选择的线性模型。目前我的代码是：
output$plot2 <-
renderPlot(plot(predict(input$choose_data,Test[-c(21, 22, 17, 10, 5, 6,
11, 2, 26)]),
Test$WAR,main = "Predicted v. Actual"))
我得到的错误是：
错误：没有适用于“预测”的方法应用于“character”类的对象
如果我用线性模型的名称替换input$choose_data，则绘图输出正确。此外，我打印出input$choose_data以表明它正在选择正确的线性模型。
所以我需要将input$choose_data从一个字符串转换为实际保存的线性模型对象。有谁知道怎么做？