[datacleanup] Page-like bodies shouldn't be unknown

Author: Dominique Quatravaux

confluence.R

@@ -201,6 +201,12 @@ bodies <- {
               filter(! is.na(content.CustomContentEntityObject)) %>%
               filter(type != "CustomContentEntityObject") %>%
               nrow == 0)
+    ## 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)) %>%
+              nrow == 0)
     bodies
 }