Datein werden jetzt als csv gespeichert und nicht als xlsx

function_load.R

@@ -133,7 +133,7 @@ function_Tokenaufbereiter_alle_TN <- function() {
   
   #save the file
   #setwd("H:/01_Limesurvey_TokenVergleich")
-  write_xlsx(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_alle_TN.xlsx"))
+  write.csv(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_alle_TN.csv"), row.names = F)
   
   
   function_end()
@@ -182,7 +182,7 @@ function_Tokenaufbereiter_Newsletter <- function() {
       
       #save the file
       #setwd("H:/01_Limesurvey_TokenVergleich")
-      write_xlsx(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_Newsletter.xlsx"))
+      write.csv(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_Newsletter.csv"), row.names = F)
       
       function_end()
     
@@ -244,7 +244,7 @@ function_Tokenaufbereiter_MIT_HHID_als_firstname <- function() {
     
     #save the file
     #setwd("H:/01_Limesurvey_TokenVergleich")
-    write_xlsx(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_mit_HHID_as_firstname.xlsx"))
+    write.csv(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_mit_HHID_as_firstname.csv"), row.names = F)
     
     function_end()
     
@@ -292,7 +292,7 @@ function_Tokenaufbereiter_OHNE_HHID <- function() {
     
     #save the file
     setwd("H:/01_Limesurvey_TokenVergleich")
-    write_xlsx(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_ohne_HHID.xlsx"))
+    write.csv(combined_token_with_download,paste0("./Umfrageteilnehmertabelle_",format(Sys.Date(), "%Y_%m_%d"),"_ohne_HHID.csv"), row.names = F)
     
     function_end()