Flip ranking of 'rank' metrics

code/run-scran.R

@@ -86,7 +86,13 @@ run_scran <- function(sce, pars) {
         p_value_adj = 0
       )
 
-      x <- dplyr::arrange(x, dplyr::desc(raw_statistic))
+      # All statistics except rank are sorted in descending order.
+      if (substr(metric, 1, 4) != "rank") {
+        x <- dplyr::arrange(x, dplyr::desc(raw_statistic))
+      } else {
+        x <- dplyr::arrange(x, raw_statistic)
+      }
+
     })
   }