diff --git a/invivos/app.R b/invivos/app.R
index 46d7037..9f9a0d7 100755
--- a/invivos/app.R
+++ b/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)
     }
   )