更新全局变量并在R中返回它

我想知道如何通过调用函数并返回它来更新全局变量。这是我在“server.R”中的简短代码。我的ui.R由几行代码组成，用于显示输出

sentence <- ""
result <- c()

updateSen <- function(input){
   print("function executed!")
   if(length(sentence) == 0){
      result <<- c(result, "First")
      sentence <<- paste(sentence, input, sep = " ")
   }else{
      result <<- c(result, input)
      sentence <<- paste(sentence, input, sep = " ")           
   }
}

shinyServer(
   function(input, output){
      word <- reactive({
         word <- input$tid
      })
      output$oid <- renderText({
         paste(input$tid)
      })

      output$sen <- renderText({
         updateSen(word())
         sentence
      })
   }
)

---

句子据我所知，变量“result”将在应用被动关键字后自动开始更改。试一试

updateSen <- reactive(function(input){
   print("function executed!")
   ...           
   }
})

updateSen您还可以提供ui.RHi@pops，我在下面发布了ui.R。