总结在RShiny中动态创建的textAreaInput中输入的值

Question

我正在构建一个Shiny应用程序，我已经在3列中动态生成了TextareaInput。面临的问题是我需要知道如何将每列总结为100并将其显示在另一个TextareaInput中。 使用的 R代码是：

ui <- fluidPage(
fluidRow(
  column(3,dataTableOutput("table", height = "40px")),
  column(9,uiOutput("inputGroup"))
  ))
server <- function(input, output){
output$table <- renderDataTable({
    df()
  },
  options = list(
    dom = 't',
    ordering = FALSE,
    pageLength = 20,
    autoWidth = TRUE,
    rowCallback = JS("function(r,d) {$(r).attr('height', '76px')}")),
  colnames = " "
  )
 observeEvent(input$view, {
    output$inputGroup = renderUI({
      input_list <- lapply(1:(nrow(df())*3+3), function(i) {
        # for each dynamically generated input, give a different name
        inputName <- paste("input", i, sep = "")
        textInputRow<-function (inputId,value) 
        {
          div(style="display:inline-block",
              textAreaInput(inputName,"", width = "200px", height = "43px")
          )
        } 
       column(4,
        textInputRow(inputName, "")
       )
      })
      do.call(tagList, input_list)
    })
}
shinyApp(ui = ui, server = server)

获得的输出是： Output

我想在最后一行显示总和。 任何人都可以帮我这个代码吗？ 提前谢谢。