r - $中的错误：'closure'类型的对象在R Web Shiny App中不是子集

Question

Here Is My Code:- 
#Predication Part......
    train <- reactive(data[1:9,])
    test <- reactive(data[1:768,]) 
    
    
    pred_test <- reactive(knn(train[,-9], test[,-9], train$class, k=as.numeric(input$k)))
    
    confusion<-reactive(table(pred_test,test$class))
    sum_ans<-reactive(sum(diag(confusion))/nrow(test))
    con_ans<-reactive(confusionMatrix(pred_test,as.factor(test$class)))
    
    
    output$knn <- renderTable({
        con_ans() 
    })

显示此错误：警告：$ 中的错误：“闭包”类型的对象不可子集如何解决此错误....

标签： r