Al exportar gráfic cin_indiv agrupaba por Animal y no Animal+Side.

invivos/app.R

@@ -895,8 +895,10 @@ server <- function(input, output) {
                 table<-table %>% filter(!Animal %in% deadmice)
               }
             }
+            print("Table")
+            print(head(table))
             
-            g<-ggplot(table, aes(as.numeric(as.character(DayPostInoc)), Volume, color=Group, group=Animal))+
+            g<-ggplot(table, aes(as.numeric(as.character(DayPostInoc)), Volume, color=Group, group=paste0(Animal,Side)))+
               scale_x_continuous(expand = expansion(mult = c(0,0.0)),
                                  breaks=sort(unique(as.numeric(as.character(table$DayPostInoc)))),
                                  limits = c(0,max(as.numeric(as.character(table$DayPostInoc)))*1.1))+