Añado que muestre una tabla al final con todos los volúmenes.

invivos/app.R

@@ -34,7 +34,8 @@ ui <- fluidPage(
                 mainPanel(
                   plotOutput("firstPlot"),
                   plotOutput("distPlot"),
-                  tableOutput("distTable")
+                  tableOutput("distTable"),
+                  tableOutput("distTableAll")
                 )
               ),
               tabPanel("Análisis",
@@ -214,6 +215,13 @@ server <- function(input, output) {
       df_sum
     }
   })
+  output$distTableAll <- renderTable({
+    observeEvent(dades$db, {})
+    if (!is.null(dades$db)){
+      df<-dades$db
+      df %>% arrange(group)
+    }
+  })
   
   output$downloadData <- downloadHandler(