Añadir tabla en distribución por tamaños.

invivos/app.R

@@ -10,6 +10,7 @@ library(gridExtra)
 source("../../funcions.R")
 library(survminer)
 library(survival)
+library(plotrix)
 
 # Define UI for application
 ui <- fluidPage(
@@ -29,7 +30,8 @@ ui <- fluidPage(
                   ),
                 mainPanel(
                   plotOutput("firstPlot"),
-                  plotOutput("distPlot") 
+                  plotOutput("distPlot"),
+                  tableOutput("distTable")
                 )
               ),
               tabPanel("Análisis",
@@ -195,6 +197,16 @@ server <- function(input, output) {
     }
   })
   
+  output$distTable <- renderTable({
+    observeEvent(dades$db, {})
+    if (!is.null(dades$db)){
+      df<-dades$db
+      df_sum<-dcast(df, group~., value.var = "Volume", fun.aggregate = mean, na.rm=T) %>% rename("Mean"=".")
+      df_sum["SEM"]<-dcast(df, group~., value.var = "Volume", fun.aggregate = std.error, na.rm=T) %>% pull(`.`)
+      df_sum
+    }
+  })
+  
   output$downloadData <- downloadHandler(
     
     filename = function() {