Corregir error mock

app.R

@@ -131,7 +131,11 @@ server <- function(input, output) {
               t_maps<-generate_labstats(t_stats, t, "value", "variable", "Groups")
               dades$maps<<-t_maps
             }
-            dades$final<<-t_substr %>% select(-c(ctrl, mock))
+            print(t_substr)
+            
+            dades$final<<-if(ctrl %in% colnames(t_substr)){t_substr %>% select(-cctrl)}else{t_substr}
+            # dades$final<<-if(ctrl %in% colnames(t_substr)){t_substr %>% select(-c(ctrl, mock))}else{t_substr %>% select(-mock)}
+              
             set.seed(123)
             if (input$positive == T){
                 ggplot(melt(t_substr, id=c("Mice", ctrl, "Groups")), aes(variable, value))+