equivalent of lme4::rePCA() for lme models

Dear All,

I was wondering if there is any `lme4::rePCA()` equivalent for
`nlme::lme()` models (a reproducible example is below)?

--Thanks, Simon

library(nlme)

dat <- read.csv('https://raw.githubusercontent.com/hkil/m/master/mv.l.csv')

m22 <- lme(value ~0 + name, random = ~0 + name| Student, data = dat,
          correlation = corSymm(), weights = varIdent(form = ~1|name))