浏览代码

add missing function to genderequality

genderequality-alternative
flavis 4 年前
父节点
当前提交
c53d842a1e
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. +6
    -0
      vignettes/genderequality.Rmd

+ 6
- 0
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")



正在加载...
取消
保存