From b9d77ac3f292e69ea3abec074df002346a1206db Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Wed, 14 Jul 2021 11:15:48 +0200
Subject: [PATCH] =?UTF-8?q?Corregir=20problema=20con=20estad=C3=ADstica.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app.R | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

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()
       }
     })