如何聚合闪亮的反应表？

Question

我想从Shiny聚合一个反应表。我的结构类似于this example

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 = NA, Column2 = NA) 
    newEntry <- observe({ 
     if(input$update > 0) { 
     newLine <- isolate(c(input$text1, input$text2)) 
     isolate(values$df <- rbind(values$df, newLine)) 
     } 
    }) 
    output$table1 <- renderTable({values$df}) 
    })) 

我试图用多种方法，例如：

output$table2 <- renderTable({ 
    as.data.frame(values$Column1, list(values$Column2), sum 
}) 

但是到现在为止我也没有预期的结果。你有想法吗？

Answer 1

您是否正在寻找像行数一样的东西？我sum使用apply功能，但

output$table1 <- renderTable({cbind(values$df, Rowsum = apply(values$df, 1, function(x) sum(as.numeric(x))))}) 

另外，如果你想删除的第一个空行，你可以使用的建议SO问你linked

它看起来像这样：

完整代码：

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)) 
    newEntry <- observe({ 
     if(input$update > 0) { 
     newLine <- isolate(c(input$text1, input$text2)) 
     isolate(values$df[nrow(values$df) + 1,] <- c(input$text1, input$text2)) 
     } 
    }) 
    output$table1 <- renderTable({cbind(values$df, Rowsum = apply(values$df, 1, function(x) sum(as.numeric(x))))}) 
    })) 

请注意，没有执行异常处理。