This is analogous to what is done as part of the R axis range calculation,
in the case where `xaxs="r"`

.

rangeExtended(x, extend = 0.04)

## Arguments

x |
a numeric vector. |

extend |
fraction to extend on either end |

## Value

A two-element vector with the extended range of `x`

.