add r test #944