R: Update code