modify R to ResouresID