add r printing table