Browse Source

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

master
marcelcosta 3 years ago
parent
commit
c69cfb05e3
1 changed files with 13 additions and 1 deletions
  1. +13
    -1
      invivos/app.R

+ 13
- 1
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() {

Loading…
Cancel
Save