# Determine which language is currently in use in R
oldlang <- getLanguage()
if (oldlang != "") {
# Switch to English and test a command that issues a warning
if (setLanguage("en_US")) 1:3 + 1:2
# Switch to French and test a command that issues a warning
if (setLanguage("fr_FR")) 1:3 + 1:2
# Switch to German and test a command that issues a warning
if (setLanguage("de_DE")) 1:3 + 1:2
# Switch to Italian and test a command that issues a warning
if (setLanguage("it_IT")) 1:3 + 1:2
# Etc..
# Restore previous language
setLanguage(oldlang)
}
Run the code above in your browser using DataLab