Añadidas las pestañas grupos y sexo en el template.

invivos/app.R

@@ -336,7 +336,7 @@ server <- function(input, output) {
         )
         dtemplate<-template
       }
-      write.xlsx(dtemplate,file)
+      write.xlsx(list("Measures"=dtemplate, "Groups"=NULL,"Sex"=NULL), "test.xlsx")
     }
   )