match canonical ordering of roxygen

[MichaelChirico]

Again towards shrinking the diff in #61 & making it easier to spot inconsistencies.

Didn't change anything in the R/ version, it's just busywork at this point I reckon

A programmatic approach:

non_sections = c("item", "code", "emph", "itemize", "dontshow", "verb", "method", "subsection", "if", "strong", "tabular")
section_names = function(l) {
  l |>
    grep(pattern = "^[\\][a-zA-Z0-9_]+[{]", value=TRUE) |>
    gsub(pattern = "^[\\]|\\{.*", replacement = "") |>
    setdiff(non_sections)
}

section_ordering_in_branch = function(branch) {
  system2("git", c("checkout", branch))
  rd = Sys.glob("man/*.Rd")
  rdl = lapply(rd, readLines)
  names(rdl) = rd
  
  lapply(rdl, section_names)
}

old = section_ordering_in_branch("master")
new = section_ordering_in_branch("roxygen")

# all.equal() might be nice but there are other differences between the branches still
for (rd in names(new)) {
  o = old[[rd]]
  n = new[[rd]]
  old[[rd]] = o[o %in% n]
  new[[rd]] = n[n %in% o]
}

for (rd in names(new)) if (!isTRUE(all.equal(old[[rd]], new[[rd]]))) {
  message(rd)
  print(cbind(old[[rd]], new[[rd]]))
}