Corregido error en exportar volúmenes.

invivos/app.R

@@ -327,7 +327,7 @@ server <- function(input, output) {
       table<-table %>% filter(!is.na(Group))
       table$Timepoint<-factor(table$Timepoint, levels=mixedsort(as.numeric(as.character(unique(table$Timepoint)))))
       analysis$taula_def<-table
-      analysis$taula_vol<-dcast(table, Cage+`ID animal`+`ID tumor`~Volume)
+      analysis$taula_vol<-dcast(table, Cage+`ID animal`+`ID tumor`~Timepoint,value.var = "Volume")
       table_plot<-dcast(dcast(table %>% filter(!is.na(Volume)), `ID animal`+Group+Timepoint~., value.var = "Volume", fun.aggregate = mean), Group~Timepoint)
       table_plot
     }
@@ -504,7 +504,7 @@ server <- function(input, output) {
     }
   })
   
-  output$downloadVolumes <- downloadHandler(
+  output$downloadVolume <- downloadHandler(
     
     filename = function() {
       paste("invivo-vols", ".xlsx", sep="")