From 1bce473833bfdcecd93172ed13c1b281b9347218 Mon Sep 17 00:00:00 2001
From: untergeekDE <jan@untergeek.de>
Date: Sat, 5 Nov 2022 15:15:11 +0100
Subject: [PATCH] Library-Lademechanismus umgestellt; this.path  v1.02

---
 R/lies_aktuellen_stand.R |  1 -
 R/messaging.R            | 11 ++++++++---
 R/update_feldmann.R      | 36 ++++++++++++++++++++++--------------
 3 files changed, 30 insertions(+), 18 deletions(-)

diff --git a/R/lies_aktuellen_stand.R b/R/lies_aktuellen_stand.R
index ac3b5ee..8c6b1c5 100644
--- a/R/lies_aktuellen_stand.R
+++ b/R/lies_aktuellen_stand.R
@@ -35,7 +35,6 @@ for (i in c(1:nrow(config_df))) {
 archiviere <- function(df,a_directory = "daten/wahllokale") {
   if (!dir.exists(a_directory)) {
     dir.create(a_directory)
-    teams_warning(a_directory," neu angelegt")
   }
   write_csv(df,
             paste0(a_directory,"/",
diff --git a/R/messaging.R b/R/messaging.R
index a1e49ce..f6dfa7b 100644
--- a/R/messaging.R
+++ b/R/messaging.R
@@ -9,9 +9,14 @@ library(teamr)
 #' 
 #' Kommunikation mit Teams
 #' 
-#' Webhook wird als 
-#' 
-#' 
+#' Webhook wird als URL im Environment gespeichert. Wenn nicht dort, dann 
+
+# Webhook schon im Environment? 
+if (Sys.getenv("WEBHOOK_REFERENDUM") == "") {
+  t_txt <- read_file("")
+  Sys.setenv(WEBHOOK_REFERENDUM = t_txt)
+}
+
 teams_meldung <- function(...,title="Feldmann-Update") {
   cc <- teamr::connector_card$new(hookurl = Sys.getenv("WEBHOOK_REFERENDUM"))
   cc$title(paste0(title," - ",lubridate::with_tz(lubridate::now(),
diff --git a/R/update_feldmann.R b/R/update_feldmann.R
index 70585b0..af39750 100644
--- a/R/update_feldmann.R
+++ b/R/update_feldmann.R
@@ -1,12 +1,21 @@
-library(readr)
-library(lubridate)
-library(tidyr)
-library(stringr)
-library(dplyr)
-library(DatawRappr)
+library(pacman)
+
+# Laden und ggf. installieren
+p_load(this.path)
+p_load(readr)
+p_load(lubridate)
+p_load(tidyr)
+p_load(stringr)
+p_load(dplyr)
+p_load(DatawRappr)
 
 rm(list=ls())
 
+# Aktuelles Verzeichnis als workdir
+setwd(this.path::this.dir())
+# Aus dem R-Verzeichnis eine Ebene rauf
+setwd("..")
+
 
 source("R/messaging.R")
 source("R/lies_aktuellen_stand.R")
@@ -148,20 +157,22 @@ if (neue_daten) {
     if(fom_df$meldungen_anz > 0) {
       fom_update_str <- paste0(
         "<strong>Update OK</strong><br/><br/>",
-        fom_df$meldungen_anz," von ",fom_df$meldungen_max," Wahllokale ausgezählt ",
+        fom_df$meldungen_anz,
+        " von ",
+        fom_df$meldungen_max," Wahllokale ausgezählt ",
         "<ul><li><strong>Quorum zur Abwahl ist derzeit",
         ifelse(fom_df$ja / fom_df$wahlberechtigt < 0.3, " nicht ", " "),
         "erreicht</strong></li>",
         "<li><strong>Anteil der Ja-Stimmen an den Wahlberechtigten: ",
         format(fom_df$ja / fom_df$wahlberechtigt * 100,decimal.mark=",",big.mark=".",nsmall=1, digits=3),
         "</li><li>Ja-Stimmen: ",
-        format(fom_df$ja,decimal.mark=",",big.mark=".",nsmall=1, digits=3),
+        format(fom_df$ja,decimal.mark=",",big.mark="."),
         "</li><li>Nein-Stimmen: ",
-        format(fom_df$nein,decimal.mark=",",big.mark=".",nsmall=1, digits=3),
+        format(fom_df$nein,decimal.mark=",",big.mark="."),
         "</li><li>Verhältnis Ja:Nein: ",
         format(fom_df$ja / (fom_df$ja + fom_df$nein),decimal.mark=",",big.mark=".",nsmall=1, digits=3),"% : ",
         format(fom_df$nein / (fom_df$ja + fom_df$nein),decimal.mark=",",big.mark=".",nsmall=1, digits=3),"%</li></ul>",
-        format(fom_df$ja / fom_df$wahlberechtigt,decimal.mark=",",big.mark=".",nsmall=1, digits=3),
+        format(fom_df$ja / fom_df$wahlberechtigt,decimal.mark=",",big.mark=".",nsmall=1, digits=3)
       )
       teams_meldung(fom_update_str,title="Feldmann-Referendum")
 
@@ -170,7 +181,4 @@ if (neue_daten) {
     teams_warning("Neue Wahllokal-Daten, aber keine neuen Ortsdaten?")
   }
 } 
-# Auch hier TRUE zurückbekommen;; alles OK?
-
-
-
+# Auch hier TRUE zurückbekommen;; alles OK?
\ No newline at end of file
-- 
GitLab