Corregir error mock

2021-02-15 13:11:53 +01:00
parent ef45b35db7
commit 756cb1b300
1 changed files with 5 additions and 1 deletions
@@ -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))+