# NOT RUN {
items <- c(A = "a", Z = "z", `.D` = ".d", `_C` = "_C")
.sortDotsUnderscoreFirst(items)
# dots & underscore (using 2nd character), then all lower then all upper
items <- c(B = "Upper", b = "lower", A = "a", `.D` = ".d", `_C` = "_C")
.sortDotsUnderscoreFirst(items)
# with a vector
.sortDotsUnderscoreFirst(c(".C", "_B", "A")) # _B is first
# }
Run the code above in your browser using DataLab