marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Solucionar bug en el completado de los grupos.

Browse Source
This commit is contained in:
marcelcosta
2023-02-10 14:19:29 +01:00
parent 603f06db66
commit c6de7d7d41
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+1 -1
View File
@@ -362,7 +362,7 @@ server <- function(input, output) {
table_group<-merge( table_group<-merge(
table %>% select(Animal, Group) %>% unique() %>% group_by(Animal) %>% count(), table %>% select(Animal, Group) %>% unique() %>% group_by(Animal) %>% count(),
table %>% select(Animal, Group) %>% unique() table %>% select(Animal, Group) %>% unique()
) %>% filter(n > 1 & (!is.na(Group) | Group != "")) %>% select(-n) ) %>% filter(!is.na(Group) | Group != "") %>% select(-n)
table<-merge( table<-merge(
table %>% select(-Group), table %>% select(-Group),