I see, have you found a way of accessing reward pool values for specific timestamps? I think I have only seen the function so far that returns it for the present moment.
this post appears to give some parts of the answer - I need to learn more about Rshares.