From c6de7d7d412bdb6b03487786bef0ec17d792ddd7 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Fri, 10 Feb 2023 14:19:29 +0100 Subject: [PATCH] Solucionar bug en el completado de los grupos. --- invivos/app.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/invivos/app.R b/invivos/app.R index 7242715..31ec443 100755 --- a/invivos/app.R +++ b/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),