How to automate assignment to a class from output of a function in r

Question

I am trying desperately to automate some model testing in lme4::lmer (as I have too many to do)

The functions I use run some models and find the best one by checking