corregir aplicación

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)
     }
   )