# Default number formatting
x <- c(0.1, 1, 1000)
label_number()(x)
# Now again with new options set
number_options(style_positive = "plus", decimal.mark = ",")
label_number()(x)
# The options are the argument names with a 'scales.'-prefix
options("scales.style_positive")
# Resetting the options to their defaults
number_options()
label_number()(x)
Run the code above in your browser using DataLab