On my old beat-up TI-83 I can get a reduced fraction representation of a rational real number with the following syntax.
.14>Frac 7/50
fractions() in the MASS package does just that:
> library(MASS) > fractions(.14) [1] 7/50