From dc2bc3eb82082ef44c16cb5f997a4d67a98d5b9f Mon Sep 17 00:00:00 2001
From: richard beer <richard.beer@uk-halle.de>
Date: Fri, 17 May 2024 10:11:36 +0200
Subject: [PATCH] Datein werden jetzt als csv gespeichert und nicht als xlsx
---
function_load.R | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/function_load.R b/function_load.R
index beb9b38..4216818 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()
--
GitLab