From 8357293f6a2031bfc7f7a3f21ce07157bd5441bd Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Wed, 23 Feb 2022 16:06:33 +0100
Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3n=20exportar.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index 0016243..e827954 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -257,7 +257,7 @@ server <- function(input, output) {
       timepoint<-c(7,10,13,16,19,22,25)
       
       if (!is.null(input$file_sizes)){
-        dtemplate<-dades$db %>% select(-Volume)
+        dtemplate<-dades$db %>% select(-Volume,-sex)
         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")] %>% arrange(`ID animal`, `ID tumor`)
         # template<-expand.grid(dades$db$MouseID, timepoint)