Added sorting of output on find()

R/find.R

@@ -1,10 +1,15 @@
 #' @title Find indices and values of nonzero elements
 #' @description Emulates behavior of `find`
 #' @param x object or logic operation on an object
-find <- function(x) {
+#' @param sort sort output?
+find <- function(x, sort=TRUE) {
 	if (is.logical(x)) {
-		return(which(x))
+		out <- which(x)
 	} else {
-		return(which(x > 0))
+		out <- which(x > 0)
 	}
+	if (sort) {
+		out <- sort(out)
+	}
+	return(out)
 }