R：闪亮的；可变长度不同“；布尔值错误，checkboxInput（）

我正在尝试创建一个闪亮的应用程序，它使用rpart（）构建树形图。我使用12个预测器，我想通过checkboxInput（）值指定每个预测器的使用。我知道每个checkboxInput的值都是布尔值。通常，当我将TRUE或FALSE乘以其中一个预测器以指定使用该预测器时，rpart（）会起作用。我不断得到以下错误：

model.frame.default（公式=output~（input$Pred1*meanrecchrge）+中出错： 变量长度不同（针对“input$Pred1”找到）

用户界面

服务器.R

library(shiny)
require(rpart)
require(rpart.plot)


shinyServer(function(input, output) {


output$TreePlot <- renderPlot({rpart.plot({rpart(outcome~
                  (input$Pred1*meanrecchrge)+(input$Pred2*percchangemin)
                 +(input$Pred3*percchangerev)+(input$Pred4*servmonths)
                 +(input$Pred5*numuniqsubs)+(input$Pred6*numactvsubs)
                 +(input$Pred7*daysowned)+(input$Pred8*agefirst)
                 +(input$Pred9*creditde)+(input$Pred10*refurb)
                 +(input$Pred11*webcap)+(input$Pred12*retcall), 
                 data = ChurntrainPreImpute, method = "class", 
                control = rpart.control(minsplit = 1))})
})
 })

库（闪亮）
要求（rpart）
要求（零件图）
shinyServer（功能（输入、输出）{
向阅读此问题的任何人输出$TreePlot，我最终重新编程了应用程序。我没有使用每个输入$Pred#值，而是给每个预测值指定了一个文本：text1
library(shiny)
require(rpart)
require(rpart.plot)


shinyServer(function(input, output) {


output$TreePlot <- renderPlot({rpart.plot({rpart(outcome~
                  (input$Pred1*meanrecchrge)+(input$Pred2*percchangemin)
                 +(input$Pred3*percchangerev)+(input$Pred4*servmonths)
                 +(input$Pred5*numuniqsubs)+(input$Pred6*numactvsubs)
                 +(input$Pred7*daysowned)+(input$Pred8*agefirst)
                 +(input$Pred9*creditde)+(input$Pred10*refurb)
                 +(input$Pred11*webcap)+(input$Pred12*retcall), 
                 data = ChurntrainPreImpute, method = "class", 
                control = rpart.control(minsplit = 1))})
})
 })