R语言用shiny包出现错误

代码如下


output$table <- renderTable({

      outdata <- matching_excel()$MatchedFormula;

    outputdata1 <-outdata %>%                      group_by(Bulk_Code) %>%
                      summarise(MFG_Site = str_c(MFG_Site, collapse = ","))

实现的功能是将outdata中重复的行删除并合并相关的信息



运行出现的错误如下

忘了贴图片了  重新啊发帖了哈