"object_name" attribute missing for ANOVA-like outputs

[mattansb]

mod <- aov(mpg ~ factor(cyl) + am, mtcars)
mp <- parameters::model_parameters(mod)
attr(mp, "object_name", exact = TRUE)  
#> NULL


mod_aov <- anova(mod)
mp <- parameters::model_parameters(mod_aov)
attr(mp, "object_name", exact = TRUE)  
#> NULL


mod_car <- car::Anova(mod)
mp <- parameters::model_parameters(mod_car)
attr(mp, "object_name", exact = TRUE)  
#> NULL


mod <- lme4::lmer(mpg ~ factor(cyl) + (1|gear), mtcars)
#> boundary (singular) fit: see ?isSingular
mod_aov <- anova(mod)
mp <- parameters::model_parameters(mod_aov)
attr(mp, "object_name", exact = TRUE)  
#> NULL


mod <- lmerTest::lmer(mpg ~ factor(cyl) + (1|gear), mtcars)
#> boundary (singular) fit: see ?isSingular
mod_aov <- anova(mod)
mp <- parameters::model_parameters(mod_aov)
attr(mp, "object_name", exact = TRUE)  
#> NULL

Possibly more...

---

This is required for the new effectsize API easystats/effectsize#391

[strengejacke]

mod <- aov(mpg ~ factor(cyl) + am, mtcars)
mp <- parameters::model_parameters(mod)
attr(mp, "object_name", exact = TRUE)  
#> [1] "mod"


mod_aov <- anova(mod)
mp <- parameters::model_parameters(mod_aov)
attr(mp, "object_name", exact = TRUE)  
#> [1] "mod_aov"


mod_car <- car::Anova(mod)
mp <- parameters::model_parameters(mod_car)
attr(mp, "object_name", exact = TRUE)  
#> [1] "mod_car"


mod <- lme4::lmer(mpg ~ factor(cyl) + (1|gear), mtcars)
#> boundary (singular) fit: see ?isSingular
mod_aov <- anova(mod)
mp <- parameters::model_parameters(mod_aov)
attr(mp, "object_name", exact = TRUE)  
#> [1] "mod_aov"


mod <- lmerTest::lmer(mpg ~ factor(cyl) + (1|gear), mtcars)
#> boundary (singular) fit: see ?isSingular
mod_aov <- anova(mod)
mp <- parameters::model_parameters(mod_aov)
attr(mp, "object_name", exact = TRUE)  
#> [1] "mod_aov"

^{Created on 2021-10-24 by the reprex package (v2.0.1)}

[mattansb]