update r code