diff --git a/app.R b/app.R index f389f03..e0b7f75 100644 --- a/app.R +++ b/app.R @@ -132,7 +132,7 @@ server <- function(input, output) { dades$maps<<-t_maps } if (length(unique(dades$taula %>% pull(Groups))) < 2){ - dades$stats<<-1 + dades$stats<<-null } c(ctrl, mock)[c(ctrl, mock) %in% colnames(t_substr)] @@ -183,22 +183,13 @@ server <- function(input, output) { observeEvent(dades$stats, {}) t_stats<-dades$stats if (!is.null(dades$stats)){ - if (t_stats == 1){ - validate( - need(t_stats == 1, "Con un sólo grupo no se puede hacer estadística") - ) - }else{ - return( t_stats %>% flextable() %>% theme_vanilla() %>% fontsize(size=14, part="all") %>% padding(padding=10, part="all") %>% color(~ p.adj < 0.05, color = "red")%>% - autofit() - ) %>% - htmltools_value() - } + autofit() %>% htmltools_value() } })