From f53d7b564c586cdc9225dc19442eb82e14e6b152 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Tue, 22 Feb 2022 14:51:34 +0100
Subject: [PATCH] =?UTF-8?q?A=C3=B1ado=20que=20muestre=20una=20tabla=20al?=
 =?UTF-8?q?=20final=20con=20todos=20los=20vol=C3=BAmenes.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index 3cf65a3..68b66b1 100755
--- a/invivos/app.R
+++ b/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(