闪亮的生存分析

Question

我遇到了shiny app提出生存分析的问题。我为我的分析上传了一个数据集，并使用3个selectInputs来确定时间检查器和组。但是，当我想使用例如input$si5ax作为我的时间变量时，会出现Time变量不是数字的错误。

代码如下：

data_set <- reactive({

 infile <- input$dataset3

  if (is.null(infile)) {
      return(NULL)
    }

    infile3 <- input$dataset3
    read.csv(infile3$datapath,sep=',')
  })

aea8 <- eventReactive(input$doa8,{

   fit1 <- survfit(Surv(input$si5ax, censor)~group, data = data_set())

  ggsurv(fit1)+theme_bw(base_size = 16)

})

output$plota1 <- renderPlot({

aea8()  
})

当我直接使用时间而不是输入选择时，这个问题将得到解决。同样的问题由变量审查员和集团发生。错误消息表示组的长度不相等。 我期待着帮助