运行闪亮的应用程序时，一个函数返回：类型'list'未实现默认方法

Question

我正在学习如何构建闪亮的应用程序。 我的应用程序的一个功能不起作用，并说未为类型“列表”实现默认方法

所以，我做什么： 在我的应用程序中，首先，用户选择她在冰箱中拥有的产品，然后我的模型推荐食谱，还列出了她需要购买来烹饪的产品。 我尝试将上述功能的结果存储到data.frame然后再存储到矢量，因此下一个功能将建议在哪里免费获取产品。

need_prod <- reactive({ 
    input$submit
    if (input$submit == 0){
      return()
    }

    prodprod <- (as.data.frame(recipe_recommendation(isolate(input$product),
                                                     isolate(input$recipe))))$need
    prodprod <- as.character(unlist(sapply(prodprod, function(x) strsplit(x, ", ")[[1]])))
}) 

然后，我希望函数采用need_prod中的值并基于该值建立建议：

output$table2 <- renderTable({
    input$submit
    if (input$submit == 0){
      return()
    }

    my.data <- need_prod()
    print(my.data)
    vk_connector(my.data)[1,] #vk_connector is a function. it works with vectors
}, outputArgs = data.frame())

函数zk_connector引发以下错误：

default method not implemented for type 'list'

但是当我使用简单的矢量运行此功能时，它工作正常。