[R] coefficient of partial determination...partial r square [redux]

[Dr Carbon]

After the deafening silence from my last post (which likely caused
shudders of disgust in statistics departments on the six continents)
I'll reformulate:

Is there a function that will return the coefficients of partial
determination for the independent variables in a lm (or glm). For y =
x1 + x2....xn can I use R to extract the partial rsq for x1 to n?

I am, and remain, with Admiration, etc. etc., at your Bidding,
DC