(current_locale <- sys_get_locale())
english <- if(is_windows()) "English"
else if(is_mac()) "en_GB"
else if(is_linux()) "en_GB.utf8"
else "en"
sys_set_locale(LC_MONETARY = english)
sys_get_locale()
sys_set_locale(l = current_locale) #restore everything
Run the code above in your browser using DataLab