Solucionar bug en el completado de los grupos.

2023-02-10 14:19:29 +01:00
parent 603f06db66
commit c6de7d7d41
1 changed files with 1 additions and 1 deletions
@@ -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),