R/dotCall.R

In dsidavis/dotCall_locale: Check locale setting from .Call

.Call =
function (.NAME, ..., PACKAGE)
{
    #    old = Sys.getlocale()
    #    on.exit(Sys.setlocale(, old))
    old = getLocale()
    on.exit(resetLocale(old))    
    Sys.setlocale(, "C")
    base::.Call(.NAME, ..., PACKAGE = "locale")
}

LocaleEls = c("LC_COLLATE", "LC_CTYPE", "LC_MONETARY", "LC_NUMERIC", "LC_TIME", "LC_MESSAGES", "LC_PAPER", "LC_MEASUREMENT")

getLocale =
function()
{
    cat("getLocale\n")
    tmp = sapply(LocaleEls, Sys.getlocale)
    tmp[tmp != ""]
}

resetLocale =
function(vals)
{
    cat("resetLocale\n")
    mapply(Sys.setlocale, names(vals), vals)
}