Browse Source

Autocompletado de grupo.

master
marcelcosta 1 year ago
parent
commit
dde77d987c
1 changed files with 13 additions and 0 deletions
  1. +13
    -0
      invivos/app.R

+ 13
- 0
invivos/app.R

@ -356,6 +356,19 @@ server <- function(input, output) {
wide<-as.numeric(strsplit(table[i,"Wide"],"+", fixed = T)[[1]])
table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6)))
}
## Autocompletado de grupo
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)
table<-merge(
table %>% select(-Group),
table_group
) %>% relocate(Group, .after = DayPostInoc) %>% arrange(DayPostInoc, Animal, Side)
analysis$taula<-table
}
})

Loading…
Cancel
Save