diff --git a/invivos/app.R b/invivos/app.R index 1db5d31..7f06859 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -332,7 +332,7 @@ server <- function(input, output) { # timepoint<-c(7,10,13,16,19,22,25) if (!is.null(input$file_sizes)){ - template<-dades$db %>% filter(!is.na(Group)) %>% + template<-dades$db %>% select(Animal, Group) %>% unique() dtemplate<-merge(dades$taula %>% select(-Group), template) %>% arrange(DayPostInoc, Animal, Side) %>%