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

2022-02-22 14:51:34 +01:00
parent dfc88324dc
commit f53d7b564c
1 changed files with 9 additions and 1 deletions
@@ -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(