How to compute the Average variance extracted directly in R

Question

I have been using the rsquare function in lavaan but I couldn\'t find a method for estimating the Average Variance Extracted.

Function inspect()