Solucionar bug en el completado de los grupos.

invivos/app.R

@@ -362,7 +362,7 @@ server <- function(input, output) {
       table_group<-merge(
         table %>% select(Animal, Group) %>% unique() %>% group_by(Animal) %>% count(),
         table %>% select(Animal, Group) %>% unique()
-      ) %>% filter(n > 1 & (!is.na(Group) | Group != "")) %>% select(-n)
+      ) %>% filter(!is.na(Group) | Group != "") %>% select(-n)
       
       table<-merge(
         table %>% select(-Group),