From c53d842a1eb4449b4f20112e4c7f2ebc9059f736 Mon Sep 17 00:00:00 2001
From: flavis <christian@flavigny.de>
Date: Tue, 10 Aug 2021 17:26:05 +0200
Subject: [PATCH] add missing function to genderequality

---
 vignettes/genderequality.Rmd | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/vignettes/genderequality.Rmd b/vignettes/genderequality.Rmd
index ec83efb..377d2cc 100644
--- a/vignettes/genderequality.Rmd
+++ b/vignettes/genderequality.Rmd
@@ -52,6 +52,12 @@ by reading the gender from the master data of all members of parliament, which i
 fetched from bundestag.de.
 
 ```{r}
+xml_get <- function(node, name) {
+    res <- xml_text(xml_find_all(node, name))
+    if (length(res) == 0) NA_character_
+    else res
+}
+
 x <- read_xml("../inst/masterdata.xml")
 mdbs <- xml_find_all(x, "MDB")