D'oh! You'll be surprised, but it looks like there is a $r->location method for this job :) Problem solved...