add r code