tablesort <- function(x, ordering="lexicographic", column=1, reverse=false)
{
# Implementation
}
# Usage is e.g.
tablesort(mytable, column=3)