[feature] pages tibble

Author: Dominique Quatravaux

confluence.R

@@ -201,13 +201,19 @@ bodies <- {
               filter(! is.na(content.CustomContentEntityObject)) %>%
               filter(type != "CustomContentEntityObject") %>%
               nrow == 0)
+    bodies
+}
+
+pages <- {
+    page_bodies <- bodies %>% filter(! is.na(content.Page))
     ## Page-like bodies should have a match in page_versions:
-    stopifnot(bodies %>%
-              filter(! is.na(content.Page)) %>%
-              anti_join(page_versions,
-                        by = join_by(content.Page == content_id)) %>%
+    by <- join_by(content.Page == content_id)
+    stopifnot(page_bodies %>%
+              anti_join(page_versions, by = by) %>%
               nrow == 0)
-    bodies
+    page_bodies %>%
+        left_join(page_versions, by = by) %>%
+        select(-starts_with("content."), -type)
 }
 
 user2content <- {