ggplotsurv显示闪亮的行数不同的错误

Question

我正在R中构建一个闪亮的应用程序，尝试使用ggsurvplot绘制来自survfit对象的反应生存曲线，但它显示错误如下：

Warning: Error in data.frame: arguments imply differing number of rows: 4893, 0, 9786
Stack trace (innermost first):
    106: data.frame
    105: cbind
    104: cbind
    103: surv_summary
    102: <Anonymous>
    101: do.call
    100: ggsurvplot

服务器代码是：

server <- function(input, output, session){
   cox <- reactive({
    survfit(as.formula(paste("Surv(GTIME,GSTATUS) ~ ",paste(input$Feature))), data=olt)
  })

  output$plot2 <- renderPlot({
    ggsurvplot(
      cox(),  
      data = olt, 
      risk.table = FALSE, 
      pval = TRUE
    )
  })
}

我搜索了ggplot中不同行数的错误，但是 该功能运行良好，能够绘制生存曲线，当它不在闪亮的应用程序，所以我不知道是什么原因导致错误。有没有人在闪亮之前见过这个错误？

感谢任何信息！