change the password settings in download_get_key.R

.gitignore

+username.txt
+password.txt
 *.xlsx

download_get_key.R

@@ -10,15 +10,15 @@ if (!require("cloudyr/limer")) {
   library("limer")
 }
 
-# !ACHTUNG: PASSWORT UND USERNAME MÜSSEN NOCH BEHANDELT WERDEN!
-# SICHERHEITSRISIKO BEI FEST EINKODIERTEN WERTEN
+#Der verwendete Benutzer hat auf die einzelnen Umfragen ausschließlich nachfolgende Rechte: Anzeigen
+username <- readLines("P:/IMEBI/DigiHero_Teilnehmerdaten/Massenmails/tokenaufbereiter/username.txt")
 
-#Der Benutzer R_Export hat auf einzelnen Umfragen ausschließlich Rechte: Anzeigen
+password <- readLines("P:/IMEBI/DigiHero_Teilnehmerdaten/Massenmails/tokenaufbereiter/password.txt")
 
 #change the next options (website, user, password)
 options(lime_api = 'https://webszh.uk-halle.de/limesurvey/index.php/admin/remotecontrol')
-options(lime_username = 'R_Export')
-options(lime_password ='Export2023')
+options(lime_username = username)
+options(lime_password = password)
 
 # first get a session access key
 get_session_key()