Corregir error en el grabado del template.

invivos/app.R

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