use base::order until #198 is fixed

From: Sebastian Gibb <mail@sebastiangibb.de> git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/MSnbase@127876 bc3139a8-67e5-0310-9ffc-ced21a209358
lgatto · Mar 30, 2017 · ec5ceeb · ec5ceeb
1 parent 95e8909
commit ec5ceeb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -329,7 +329,7 @@ getVariableName <- function(match_call, varname) {
          " have to be equal.")
   }
   rs <- .summariseRows(x, fun, ...)
-  o <- orderNumeric(as.double(rs), decreasing=TRUE, na.last=TRUE)
+  o <- order(as.double(rs), decreasing=TRUE, na.last=TRUE)
   idx <- unlist(lapply(split(o, groupBy[o]), "[", 1:n), use.names=FALSE)
   idx[!is.na(idx)]
 }