我们可以根据用户输入动态进行聚合，并使用R显示相同的内容吗？

Question

我们可以根据用户输入动态进行聚合，并使用R显示大数据吗？应使用可编辑选项在UI中显示数据。一旦用户更改了某些行/列的值，就应该在此输入数据旁边呈现相应的聚合表。如果我能看到一些实现相同的代码将是有用的。谢谢。我发现一个小例子可以更好地理解。这里在每个用户输入上添加行。我们可以实现相同的只有单行给出两列作为用户输入，并基于最后一列（总和）应该不断变化。

library(shiny)
runApp(list(
ui=pageWithSidebar(headerPanel("Adding entries to table"),
                 sidebarPanel(textInput("text1", "Column 1"),
                              textInput("text2", "Column 2"),
                              actionButton("update", "Update Table")),
                 mainPanel(tableOutput("table1"))),
server=function(input, output, session) {
values <- reactiveValues()
values$df <- data.frame(Column1 = numeric(0), Column2 = numeric(0))
#isolate(values$df[,] <- c(input$text1, input$text2))
newEntry <- observe({
   if(input$update > 0) {
     newLine <- isolate(c(input$text1, input$text2))
     isolate(values$df[nrow(values$df),] <- c(input$text1, input$text2))
   }
 })
 output$table1 <- renderTable({cbind(values$df, Rowsum = apply(values$df, 1, 
 function(x) sum(as.numeric(x))))})
 }))