From 60ceecbd1c2e7ed7ffab2a24a800afa2db0d08b6 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 15 Jul 2021 15:39:32 +0200
Subject: [PATCH] =?UTF-8?q?Corregido=20error=20en=20exportar=20vol=C3=BAme?=
 =?UTF-8?q?nes.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/invivos/app.R b/invivos/app.R
index 84e9717..da71471 100644
--- a/invivos/app.R
+++ b/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="")