R: Examples for 'R.utils::withLocale'

### ** Examples

# Vector
cat("Original vector:\n")

Original vector:

x <- c(letters[1:8], LETTERS[1:8])
print(x)

 [1] "a" "b" "c" "d" "e" "f" "g" "h" "A" "B" "C" "D" "E" "F" "G" "H"

cat("Sorting with 'C' locale:\n")

Sorting with 'C' locale:

y1 <- withLocale(sort(x), "LC_COLLATE", "C")
print(y1)

 [1] "A" "B" "C" "D" "E" "F" "G" "H" "a" "b" "c" "d" "e" "f" "g" "h"

cat("Sorting with an 'English' locale:\n")

Sorting with an 'English' locale:

y2 <- withLocale(sort(x), "LC_COLLATE", c("en_US", "en_US.UTF8", "English_United States.1252"))
print(y2)

 [1] "a" "A" "b" "B" "c" "C" "d" "D" "e" "E" "f" "F" "g" "G" "h" "H"

Examples for 'R.utils::withLocale'