adding R gist