adding in R id