From 191252530f2f5a9c460428285756cc9094aeeeeb Mon Sep 17 00:00:00 2001
From: untergeekDE <jan@untergeek.de>
Date: Sun, 6 Nov 2022 18:56:14 +0100
Subject: [PATCH] =?UTF-8?q?Briefwahl=20hei=C3=9F=20erg=C3=A4nzt;=20Textfeh?=
 =?UTF-8?q?ler=20gefixt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/update_feldmann.R | 29 ++++++++++++++++++++++++-----
 index/config.csv    | 12 ++++++------
 2 files changed, 30 insertions(+), 11 deletions(-)

diff --git a/R/update_feldmann.R b/R/update_feldmann.R
index b54628f..f9816d2 100644
--- a/R/update_feldmann.R
+++ b/R/update_feldmann.R
@@ -35,7 +35,7 @@ aktualisiere_fom <- function(wl_url = stimmbezirke_url) {
   } else {
     # Leeres df mit einer Zeile
     fom_df <- tibble(zeitstempel = as_datetime(startdatum),
-                           meldungen_anz = 999,
+                           meldungen_anz = 0,
                            meldungen_max = 575,
                            # Ergebniszellen
                            wahlberechtigt = 0,
@@ -100,7 +100,7 @@ aktualisiere_fom <- function(wl_url = stimmbezirke_url) {
         if (alles_ausgezählt ) {
           feldmann_str <- "Peter Feldmann bleibt OB von Frankfurt."
         } else {
-          feldmann_str <- "Nach dem derzeitigen Auszählungsstand wäre Peter Feldmann als OB abgewählt."
+          feldmann_str <- "Nach dem derzeitigen Auszählungsstand bliebe Peter Feldmann OB von Frankfurt."
         }
       }
     }
@@ -123,8 +123,17 @@ aktualisiere_fom <- function(wl_url = stimmbezirke_url) {
       ausgezählt = floor(neue_fom_df$wahlberechtigt / ffm_waehler * 100),
       anz = neue_fom_df$meldungen_anz,
       max = neue_fom_df$meldungen_max,
-      ts = neue_fom_df$zeitstempel
-    )
+      ts = neue_fom_df$zeitstempel)
+    briefwahl_anz <- stimmbezirke_df %>% filter(str_detect(nr,"^9")) %>% 
+      pull(meldungen_anz) %>% sum()
+    briefwahl_max <- stimmbezirke_df %>% filter(str_detect(nr,"^9")) %>% 
+      nrow()
+    annotate_str <- paste0("<strong>Derzeit sind ",
+                           briefwahl_anz,
+                           " von ",
+                           briefwahl_max, 
+                           " Briefwahl-Stimmbezirken ausgezählt. Dies beeinflusst das Ergebnis stark.</strong><br/><br/>",
+                           annotate_str)
     dw_edit_chart(fom_id,intro = beschreibung_str,annotate = annotate_str)
     dw_publish_chart(fom_id)
     return(TRUE)
@@ -155,11 +164,21 @@ if (neue_daten) {
       arrange(zeitstempel) %>% 
       tail(1)
     if(fom_df$meldungen_anz > 0) {
+      stimmbezirke_df <- lies_gebiet(stimmbezirke_url)
+      briefwahl_anz <- stimmbezirke_df %>% filter(str_detect(nr,"^9")) %>% 
+        pull(meldungen_anz) %>% sum()
+      briefwahl_max <- stimmbezirke_df %>% filter(str_detect(nr,"^9")) %>% 
+        nrow()
       fom_update_str <- paste0(
         "<strong>Update OK</strong><br/><br/>",
         fom_df$meldungen_anz,
         " von ",
-        fom_df$meldungen_max," Stimmbezirke ausgezählt ",
+        fom_df$meldungen_max," Stimmbezirke ausgezählt.<br> ",
+                              "Derzeit sind ",
+                               briefwahl_anz,
+                               " von ",
+                               briefwahl_max, 
+                               " Briefwahl-Stimmbezirken ausgezählt.<br/>",
         "<ul><li><strong>Quorum zur Abwahl ist derzeit",
         ifelse(fom_df$ja / fom_df$wahlberechtigt < 0.3, " nicht ", " "),
         "erreicht</strong></li>",
diff --git a/index/config.csv b/index/config.csv
index ed0a366..d696dcb 100644
--- a/index/config.csv
+++ b/index/config.csv
@@ -1,8 +1,8 @@
 name,value,comment
-wahllokale_url,https://votemanager-ffm.ekom21cdn.de/2022-11-06/06412000/praesentation/Open-Data-06412000-Buergerentscheid-zur-Abwahl-des-Oberbuergermeisters-der-Stadt-Frankfurt-am-Main_-Herrn-Peter-Feldmann-Stimmbezirk.csv?ts=1667586196549,
-ffm_waehler,510000,Schätzung Wählerinnen und Wähler – wird Sonntagabend aktualisiert
-fom_id,,Datawrapper-ID Feldmann-o-meter
-choropleth_id,,Datawrapper-ID Stadtteile Choropleth-Karte
-symbol_id,,Datawrapper-ID Stadtteile Symbole (absolute Stimmen)
-tabelle_id,,Datawrapper-ID Tabelle Stadtteile
+stimmbezirke_url,https://votemanager-ffm.ekom21cdn.de/2022-11-06/06412000/praesentation/Open-Data-06412000-Buergerentscheid-zur-Abwahl-des-Oberbuergermeisters-der-Stadt-Frankfurt-am-Main_-Herrn-Peter-Feldmann-Stimmbezirk.csv?ts=1667586196549,
+ffm_waehler,513000,Schätzung Wählerinnen und Wähler – wird Sonntagabend aktualisiert
+fom_id,bIm87,Datawrapper-ID Feldmann-o-meter
+choropleth_id,UwKOO,Datawrapper-ID Stadtteile Choropleth-Karte
+symbol_id,RWqrf,Datawrapper-ID Stadtteile Symbole (absolute Stimmen)
+tabelle_id,hLqMi,Datawrapper-ID Tabelle Stadtteile
 startdatum,2022-11-06 18:00:00 CET,Beginn der Auszählung
-- 
GitLab