kosmetische Änderung in der main.R

main.r

-
-# reset workspace #####
-rm(list=ls())
-
-#setwd ####
-setwd("P:/IMEBI/DigiHero_Teilnehmerdaten/Massenmails/tokenaufbereiter")
-
+# Start the programm ####
 cat("\n")
+cat("####\n")
 cat("Hallo Benutzer*in: Du hast das Script für den Tokenaufbereiter gestartet.\n")
 cat("Nachfolgend werden jetzt:\n")
 cat("- Alle notwendigen Pakete geladen.\n")
@@ -14,27 +9,36 @@ cat("+ 433442\n")
 cat("+ 144481\n")
 cat("+ 538473\n")
 cat("-> Dauert ca. 10-20 Sekunden.\n")
+cat("####\n")
 cat("\n")
+
+# preparatory work ####
+# reset workspace #
+rm(list=ls())
+
+# setwd #
+setwd("P:/IMEBI/DigiHero_Teilnehmerdaten/Massenmails/tokenaufbereiter")
+
 cat("####\n")
-cat("At the end, the files are stored in the following working directory:\n")
+cat("At the end, all generated files are stored in the following working directory:\n")
 cat(getwd(),"\n")
 cat("####\n")
+
+# load packages and source files #
 suppressWarnings({
 suppressMessages({
-#### DOWNLOAD Vorarbeit####
+
 library(readxl)
 library(writexl)
 library(tidyverse)
 
-#Start with user interaction: Pfad in Abhängigkeit von der Aufgabe wählen ####
-  
 source("./function_load.R")
-
-#get download key#
 source("./download_get_key.R")
+
 })
 })
-#### DOWNLOAD Ausführung###
+
+# DOWNLOAD files #
 
 #Umfragen ID:
 # 433442
@@ -113,15 +117,13 @@ p_538473_00<- get_participants(iSurveyID = 538473,iStart=1,iLimit = 50000, bUnus
 #TestTokens NUR über firstname identifizieren
 #token<- token |> filter(!str_detect(tolower(firstname), 'test'))
 
-
 cat("####\n")
 cat("Der Download wurde abgeschlossen.\n")
 cat("Nun werden die heruntergeladen Tabellen verbunden.\n")
 cat("####\n")
 
+# start data cleaning ####
 
-
-#Daten Verarbeiten####
 # Verbinden was ein data.frame ist.
 # in diesem Code gibt es eh nur data.frame
 filtered_data_frames <- Filter(function(x) is.data.frame(get(x)), ls())
@@ -144,10 +146,9 @@ values_to_delete = c("Test1","Test2","Test3","Test4","Test5","Test6","Test7","Te
 
 removed_test_values <- unique_df[!unique_df$firstname %in% values_to_delete, ]
 
-#SAS und Anführungszeichen -> entfällt hier in R ####
-
-#Umlaute ersetzen####
+#SAS und Anführungszeichen -> entfällt hier in R #
 
+# Umlaute ersetzen #
 
 cleaned_df <- removed_test_values |> mutate(across(firstname | lastname, 
                                 \(x) stringr::str_replace_all(string = x, 
@@ -166,8 +167,8 @@ cleaned_df <- removed_test_values |> mutate(across(firstname | lastname,
                                                                 'õ' = 'oe'
                                                               ))))
 
-#Die nicht geladenen Spalten neu einbinden und mit festen Werten speichern####
-#Enstprechend der alten Vorgaben im SAS-Script von Mareike
+# Die nicht geladenen Spalten neu einbinden und mit festen Werten speichern #
+# Enstprechend der alten Vorgaben im SAS-Script von Mareike #
 
 cleaned_df$validfrom <- ""
 cleaned_df$validuntil <- ""
@@ -177,6 +178,5 @@ cleaned_df$remindercount <- "0"
 cleaned_df$completed <- "N"
 cleaned_df$usesleft <- "1"
 
-
-
+# after cleaning . start with the user query ####
 function_start()
\ No newline at end of file