add digits argument to mifa.print

[Teebusch]

library(mifa)
library(psych)

mi <- mifa(
  data      = bfi, 
  cov_vars  = -c(gender, education, age),
  n_pc      = 2:8, 
  ci        = "fieller", 
  print     = FALSE
)

print(mi, digits = 3)  # digits has no effect

print(mi$var_explained, digits = 3)  # digits has desired effect

Desired behavior: passing the digits argument to print.mifa() should change the number digits printed in the variance explained part of the summary output, as is the case when using print() on mi$var_explained