Error in while (condition) { : argument is of length zero

Question

I \'m using the function below to put the items of a vector in an ascending order.

InOrder <- function(vector){
  le <- length(vector)
  for (j in c(2:le)){