https://thomasmaisiewedding.blogspot.com/2021/12/r-alphabetize-columns-order-functions.html