From 99bfaed25d6943701e0cf1cae63fd4a7f41ffc82 Mon Sep 17 00:00:00 2001
From: richard beer <richard.beer@uk-halle.de>
Date: Wed, 29 May 2024 13:45:36 +0200
Subject: [PATCH] =?UTF-8?q?Anpassung=20f=C3=BCr=20die=20Sortierung=20von?=
=?UTF-8?q?=20Emails?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
main.r | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/main.r b/main.r
index 525678e..d8bfd47 100644
--- a/main.r
+++ b/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()
--
GitLab