Improve ordering

Author: krlmlr

R/rd-family.R

@@ -51,12 +51,15 @@ topics_process_family <- function(topics, env) {
       if (length(others) < 1)
         next
 
-      by_file <- map_chr(aliases[others], function(x) {
+      other_aliases <- aliases[others]
+      other_aliases_order <- map_chr(other_aliases, function(x) escape(x[1]))
+
+      by_file <- map_chr(other_aliases[order_c(other_aliases_order)], function(x) {
         obj <- find_object(x[1], env)
         suffix <- if (is.function(obj$value)) "()" else ""
         paste0("\\code{\\link{", escape(x[1]), "}", suffix, "}")
       })
-      links <- paste(sort_c(by_file), collapse = ",\n")
+      links <- paste(by_file, collapse = ",\n")
       seealso <- topics_process_family_prefix(family)
 
       topic$add(rd_section("seealso", paste0(seealso, "\n", links)))

R/util-locale.R

@@ -11,4 +11,10 @@ with_collate <- function(locale, code) {
   force(code)
 }
 
-sort_c <- function(x, ...) with_collate("C", sort(x, ...))
+sort_c <- function(x, ...) {
+  with_collate("C", sort(x, ...))
+}
+
+order_c <- function(x, ...) {
+  with_collate("C", order(x, ...))
+}

tests/testthat/_snaps/rd-family.md

@@ -17,8 +17,8 @@
       }
       \seealso{
       Other a: 
-      \code{\link{foo2}()},
-      \code{\link{foo}()}
+      \code{\link{foo}()},
+      \code{\link{foo2}()}
       }
       \concept{a}
       
@@ -36,8 +36,8 @@
       }
       \seealso{
       Other a: 
-      \code{\link{foo1}()},
-      \code{\link{foo}()}
+      \code{\link{foo}()},
+      \code{\link{foo1}()}
       }
       \concept{a}