R code update