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),