[datacleanup] Current version ought to be the last one

Author: Dominique Quatravaux

confluence.R

@@ -165,7 +165,17 @@ page_versions <- {
               summarize(n = n(), n_distinct = n_distinct(version)) %>%
               filter(n != n_distinct) %>%
               nrow == 0)
-    page_versions
+    ## Current version ought to be the last version:
+    stopifnot(page_versions %>%
+              group_by(originalVersion) %>%
+              summarize(last = max(version),
+                        original = tibble(version, is.original) %>%
+                            filter(is.original) %>%
+                            pull(version)) %>%
+              filter(last != original)  %>%
+              nrow == 0)
+    page_versions %>% rename(is.latest = is.original,
+                             latest.version = originalVersion)
 }
 
 bodies <- {