Started on a getR function