[feature] Parse bodies

Author: Dominique Quatravaux

confluence.R

@@ -135,3 +135,27 @@ stopifnot({
     anti_join(relation1, relation2, by = by) %>% nrow == 0 &&
         anti_join(relation2, relation1, by = by) %>% nrow == 0
 })
+
+bodies <- {
+    ns <- entities_xml %>% xml_find_all('//object[@class="BodyContent"]')
+    tibble(body_id = ns %>% confluence_id) %>%
+        mutate(ns %>% props_tibble) %>%
+        mutate(.keep = "unused",
+               type = case_when(
+                   bodyType == 0 ~ "SpaceDescription",
+                   bodyType == 1 ~ "CustomContentEntityObject",
+                   bodyType == 2 ~ "PageEtc")) %>%
+        mutate(ns %>% classful_props_tibble)
+}
+
+stopifnot(bodies %>%
+          filter(is.na(type)) %>%
+          nrow == 0)
+stopifnot(bodies %>%
+          filter(! is.na(content.SpaceDescription)) %>%
+          filter(type != "SpaceDescription") %>%
+          nrow == 0)
+stopifnot(bodies %>%
+          filter(! is.na(content.CustomContentEntityObject)) %>%
+          filter(type != "CustomContentEntityObject") %>%
+          nrow == 0)