From 7b7b71e7918fe521902f42de8fd9a72d8a91bbff Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@protonmail.com>
Date: Tue, 3 Nov 2020 18:19:41 +0100
Subject: [PATCH] =?UTF-8?q?corregir=20aplicaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index f43b8a5..6040bfb 100644
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -1,4 +1,9 @@
 library(shiny)
+library(ggplot2)
+library(reshape2)
+library(openxlsx)
+library(dplyr)
+source("../funcions.R")
 
 # Define UI for application
 ui <- fluidPage(
@@ -40,7 +45,7 @@ server <- function(input, output) {
       template["TS"]<-rep(c("TS-Length", "TS-Width", "TS-Deep"), nrow(template)/3)
       dtemplate<-dcast(template, Cage+`ID animal`+`ID tumor`+Group+TS~Timepoint)
       dtemplate[,6:ncol(dtemplate)]<-""
-      
+      print(dtemplate)
       write.xlsx(dtemplate,file)
     }
   )