diff --git a/Nitrogen-CIT/app.R b/Nitrogen-CIT/app.R
index 23fef3e..e62f17c 100644
--- a/Nitrogen-CIT/app.R
+++ b/Nitrogen-CIT/app.R
@@ -106,7 +106,8 @@ server <- function(input, output) {
       paste("Nitrogen", ".xlsx", sep="")
     },
     content = function(file){
-      write.xlsx(dades$taula, file)
+      
+      writexl::write_xlsx(dades$taula, file)
     }
   )