R: Examples for 'base::locales'

### ** Examples

Sys.getlocale()

[1] "LC_CTYPE=en_US.UTF-8;LC_NUMERIC=C;LC_TIME=en_US.UTF-8;LC_COLLATE=en_US.UTF-8;LC_MONETARY=en_US.UTF-8;LC_MESSAGES=en_AU.UTF-8;LC_PAPER=en_AU.UTF-8;LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=en_AU.UTF-8;LC_IDENTIFICATION=C"

Sys.getlocale("LC_TIME")

[1] "en_US.UTF-8"

## Not run: 
##D Sys.setlocale("LC_TIME", "de")     # Solaris: details are OS-dependent
##D Sys.setlocale("LC_TIME", "de_DE")  # Many Unix-alikes
##D Sys.setlocale("LC_TIME", "de_DE.UTF-8")  # Linux, macOS, other Unix-alikes
##D Sys.setlocale("LC_TIME", "de_DE.utf8")   # some Linux versions
##D Sys.setlocale("LC_TIME", "German.UTF-8") # Windows
## End(Not run)
Sys.getlocale("LC_PAPER")          # may or may not be set

[1] "en_AU.UTF-8"

.LC.categories # of length 9 on all platforms

[1] "LC_ALL"         "LC_COLLATE"     "LC_CTYPE"       "LC_MONETARY"   
[5] "LC_NUMERIC"     "LC_TIME"        "LC_MESSAGES"    "LC_PAPER"      
[9] "LC_MEASUREMENT"

## Not run: 
##D Sys.setlocale("LC_COLLATE", "C")   # turn off locale-specific sorting,
##D                                    # usually (but not on all platforms)
##D Sys.setenv("LANGUAGE" = "es") # set the language for error/warning messages
## End(Not run)
## No test: 
## some nice formatting; should work on most platforms:
 sys <- Sys.info()[["sysname"]]
 sep <- switch(sys,
               "Darwin"=, "SunOS" = "/",
               "Linux" =, "Windows" = ";")
 sg <- matrix(unlist(strsplit(strsplit(Sys.getlocale(), sep)[[1]], "=")), nrow=2)
 str(sloc <- setNames(sg[2,], sg[1,]))

 Named chr [1:12] "en_US.UTF-8" "C" "en_US.UTF-8" "en_US.UTF-8" ...
 - attr(*, "names")= chr [1:12] "LC_CTYPE" "LC_NUMERIC" "LC_TIME" "LC_COLLATE" ...

 print.Dlist(sloc) # nicely readable

LC_CTYPE                en_US.UTF-8
LC_NUMERIC              C
LC_TIME                 en_US.UTF-8
LC_COLLATE              en_US.UTF-8
LC_MONETARY             en_US.UTF-8
LC_MESSAGES             en_AU.UTF-8
LC_PAPER                en_AU.UTF-8
LC_NAME                 C
LC_ADDRESS              C
LC_TELEPHONE            C
LC_MEASUREMENT          en_AU.UTF-8
LC_IDENTIFICATION       C

## End(No test)

Examples for 'base::locales'

Query or Set Aspects of the Locale