如何聚合閃亮的反應表？

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))))}) 
    })) 

請注意，沒有執行異常處理。