Extração de escores fatoriais em conjuntos de dados imputados

Estou tentando extrair os escores fatoriais usando a função lavPredict() do pacote lavaan de 5 conjuntos de dados imputados pela função mice(). Depois preciso agregar esses escores a seus correspondentes conjuntos de dados para poder prosseguir com as análises, mas apresenta um erro que não sei como resolver. Segue o código abaixo para que, se possível, possam me ajudar.

Desde já agradeço a atenção!

library(tidyverse)
library(mice)
library(lavaan)
library(semTools)

# Criando os "m" conjuntos de dados imputados (função - mice()):

dt_imput <- dt %>% mice(method = "cart", m = 5, parallel = "snow") 

# Extraindo os escores fatorias

fscores <- dt_imput %>%
with(cfa.mi("depression =~ pouco_interesse_fazer_coisas + deprimido 
          + insonia_dormir_mais_costume + cansado_pouca_energia 
          + falta_apetite_comendo_demais + mal_consigo_mesmo 
          + dificuldade_concentracao + lentidao_movimentar_agitado_inquieto 
          + pensar_se_ferir_morrer", .)) %>%
  with(lavPredict())

# Agregando os escores fatorias as suas correspondentes bases de dados

dt_end <- dt_imput %>%
with(mutate(
    depression_scores = fscores
  )
)
Error in inherits(object, "lavaan") : 
  argument "object" is missing, with no default