Pequeñas correcciones en la distribución por tamaños.

invivos/app.R

@@ -132,6 +132,7 @@ server <- function(input, output) {
   })
   grafic<-eventReactive(input$goButton,{
     df<-dades$taula
+    df<-df[!is.na(df$Volume),]
     up_cuttof<-input$upcut
     low_cuttof<-input$lowcut
     df<-df[df$Volume <= up_cuttof & df$Volume >= low_cuttof,]
@@ -174,6 +175,9 @@ server <- function(input, output) {
     if ("Group" %in% colnames(df_def)){
       df_def<-df_def %>% select(-"Group") 
     }
+
+    df_def<-merge(dades$taula %>% select(-Group), df_def[,c("ID animal", "group")], all=T) %>% select(c(`ID animal`, `ID tumor`, Volume, Cage, Major, Minor, group))
+    
     dades$db<-df_def
     print(df_def)
     
@@ -204,7 +208,7 @@ server <- function(input, output) {
       if (!is.null(input$file_sizes)){
         dtemplate<-dades$db %>% select(-Volume)
         dtemplate<-melt(dtemplate, id=c("Cage", "ID animal", "ID tumor", "group"), variable.name = "DPV", value.name = "0") %>% rename("Group"="group")
-        dtemplate<-dtemplate[,c("Cage", "ID animal", "ID tumor", "Group", "DPV", "0")]
+        dtemplate<-dtemplate[,c("Cage", "ID animal", "ID tumor", "Group", "DPV", "0")] %>% arrange(`ID animal`, `ID tumor`)
         # template<-expand.grid(dades$db$MouseID, timepoint)
         # colnames(template)<-c("MouseID", "Timepoint")
         # template<-template[order(template$Timepoint, template$MouseID),]