add r data