[feature] Parse moar

Author: Dominique Quatravaux

confluence.R

@@ -34,7 +34,7 @@ summary <- entities %>%
     arrange(n)
 
 confluence_id <- function (node_or_nodeset) {
-    xml_find_first(node_or_nodeset, 'id[@name="id"]') %>%
+    xml_find_first(node_or_nodeset, 'id') %>%
         xml_text
 }
 
@@ -159,3 +159,18 @@ stopifnot(bodies %>%
           filter(! is.na(content.CustomContentEntityObject)) %>%
           filter(type != "CustomContentEntityObject") %>%
           nrow == 0)
+
+user2content <- {
+    ns <- entities_xml %>%
+        xml_find_all('//object[@class="User2ContentRelationEntity"]')
+    tibble(u2c_id = ns %>% confluence_id) %>%
+        mutate(ns %>% props_tibble) %>%
+        mutate(ns %>% classful_props_tibble)
+}
+
+users <- {
+    ns <- entities_xml %>%
+        xml_find_all('//object[@class="ConfluenceUserImpl"]')
+    tibble(user_key = ns %>% confluence_id) %>%
+        mutate(ns %>% props_tibble)
+}