A way to sort a data.frame where the first dimension is a vector of integers

sortingExample.R

# Data Generation
start.time <- Sys.time()
random.data <- c("Hola", sample(1:100, 1000, replace=TRUE), "adios")
myInput <- data.frame('number' = random.data)

myInput$isNumber <- myInput$number == as.integer(myInput$number)
myInput$isNumber <- ifelse(!is.na(myInput$isNumber), TRUE, FALSE)

splitted <- split(myInput, myInput$isNumber == TRUE)
myNumbers <- splitted[['TRUE']]
end.time <- Sys.time()
time.taken <- end.time - start.time

# Sorting
start.time <- Sys.time()
mySortedNumbers <- myNumbers[order(myNumbers$number, decreasing = TRUE),]
end.time <- Sys.time()
time.taken <- end.time - start.time

head(mySortedNumbers)