lets use the ordering on R here to be sure.

filter Ordering.equiv(r, index) to be sure we are consistent.

Also, can you add getCol?