correction

app.R

@@ -96,10 +96,8 @@ server <- function(input, output) {
                 colnames(t_maps$label)<-c("x", "y")
                 t_maps[["brackets"]]<-as.data.frame(matrix(nrow = 0, ncol=4))
                 colnames(t_maps$brackets)<-c("y1", "y2", "x1", "x2")
-            }
-            
-            set.seed(123)
-            if (input$positive == T){
+                dades$stats<<-t_stats
+            }else{
               if (input$test == "T-test (adj Holm)"){
                 t_stats<-multi_stats(t, "value", "variable", "Groups", stat.test = "ttest")
               }
@@ -111,7 +109,10 @@ server <- function(input, output) {
               t_stats<-t_stats %>% filter(p.signif != "ns")
               
               t_maps<-generate_labstats(t_stats, t, "value", "variable", "Groups")
+            }
             
+            set.seed(123)
+            if (input$positive == T){
                 ggplot(melt(t_substr, id=c("Mice", ctrl, "Groups")), aes(variable, value))+
                     labs(x="", y="Spots/2.5*10^5 cells")+
                     # geom_errorbar(stat="summary", position=position_dodge(width=0.9), width=0.5, aes(fill=Groups))+