Anpassung für die Sortierung von Emails

main.r

@@ -31,7 +31,8 @@ suppressMessages({
 library(readxl)
 library(writexl)
 library(tidyverse)
-
+library(lubridate)
+  
 source("./function_load.R")
 source("./download_get_key.R")
 
@@ -180,5 +181,16 @@ cleaned_df$remindercount <- "0"
 cleaned_df$completed <- "N"
 cleaned_df$usesleft <- "1"
 
+#sort at the beginning of the dataframe
+list_for_email_sort <- c("Niki2007dc@gmx.com","Nadine.Glaser97@web.de","Jasmin.kroeber@gmx.de")
+for (element in list_for_email_sort){
+  specific_rows <- cleaned_df[cleaned_df$email == element, ]
+  cleaned_df <- cleaned_df[cleaned_df$email != element, ]
+  cleaned_df <- rbind(specific_rows, cleaned_df)
+}
+
+
+
+
 # after cleaning . start with the user query ####
-function_start()
\ No newline at end of file
+function_start()