Solucionar el reparto de grupos.

invivos/app.R

@@ -155,7 +155,8 @@ server <- function(input, output) {
         if ((nrow(df_temp)/ngroup) %% 2 == 0){
           interr<-any(table(df_temp$group) < floor(nrow(df_temp)/ngroup) | table(df_temp$group) > ceiling(nrow(df_temp)/ngroup))  
         }else{
-          interr<-any(table(df_temp$group) < (floor(nrow(df_temp)/ngroup)-1) | table(df_temp$group) > (ceiling(nrow(df_temp)/ngroup)+1))
+          # interr<-any(table(df_temp$group) < (floor(nrow(df_temp)/ngroup)-1) | table(df_temp$group) > (ceiling(nrow(df_temp)/ngroup)+1))
+          interr<-diff(range(table(ind))) > 1
         }
       }
       ind.list[[data]]<-df_temp[,c("ID animal", "ID tumor","group","Volume")]