diff --git a/function_load.R b/function_load.R index beb9b38c3ebd77d293007503a61f646a643b07d1..421681893269b325bae6e01bd489381094c3c9f1 100644 --- a/function_load.R +++ b/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()