diff --git a/R/aktualisiere_karten.R b/R/aktualisiere_karten.R index 60c71160890529a801b9432c489f8ba396280c1d..28626b76e347cde275a6d73884451345badcdb84 100644 --- a/R/aktualisiere_karten.R +++ b/R/aktualisiere_karten.R @@ -6,10 +6,10 @@ aktualisiere_karten <- function(wl_url = stimmbezirke_url) { neue_orts_df <- lies_gebiet(wl_url) %>% aggregiere_stadtteile() %>% mutate(quorum = ifelse(wahlberechtigt == 0, - NA, + 0, ja / wahlberechtigt * 100)) %>% mutate(status = ifelse(meldungen_anz == 0, - NA, + "KEINE DATEN", paste0(ifelse(meldungen_anz < meldungen_max, "TREND ",""), ifelse(ja < nein,