将数据添加到renderText语句中的data.frame

Question

我正在使用闪亮的，并且我一直在尝试使用userinputs（以及激活goButton时）在renderText集中向data.frame添加数据。

我目前的代码：

output$text3 <- renderText({
      if (input$goButton == 1){
      "New Patient Information Added"
      newpatientrow <- data.frame(input$newptnum, input$newptsy, 0)
      names(newpatientrow)[1]<- "patientlist"
      names(newpatientrow)[2]<- "patientsy"
      names(newpatientrow)[3]<- "patientdx"
      print(newpatientrow)
      patientdata <- rbind(patientdata,newpatientrow)}

我遇到了很多麻烦，即使在shinyserver（）之外定义一个函数也不起作用。