Could the `augment() ... is not maintained ...` message print at most once per session, please

[russHyde]

Feature

In situations when we call augment() on an ANOVA model, a warning prints out to explain that augment() is not maintained by {broom}. But the message prints out everytime that augment() is called on an ANOVA model, even if the warning message has previously been shown. Would it be possible to ensure that the warning message for a given class of model is shown at most one time in a given R session

packageVersion("broom")
[1] ‘0.8.0’

library("broom")

a <- rnorm(10)
b <- rep(c("x", "y"), each = 5)
m <- aov(a ~ b)

augment(m)
# A tibble: 10 × 8
< ... snip ...>
Warning message:
The `augment()` method for objects of class aov is not maintained by the broom team, and is only supported through the lm tidier method. Please be cautious in interpreting and reporting broom output.

augment(m)
# A tibble: 10 × 8
<... snip ...>
Warning message:
The `augment()` method for objects of class aov is not maintained by the broom team, and is only supported through the lm tidier method. Please be cautious in interpreting and reporting broom output.

# Could that second message be hidden, since it has already been printed out.

[simonpcouch]

Thank you for the issue! Yes, I'm game for considering something like this. :) Will stew on this + wait for any additional feedback.

[simonpcouch]

Thanks again for the issue! The warning regarding tidiers only maintained via dispatch to lm and glm will now be displayed only once per session, per unique dispatch. That is, if a class_a object is tidied using a (g)lm method, broom will not warn when tidying class_a objects for the rest of the session, but if a class_b object is tidied using a (g)lm method in the same session, broom will warn again:

library(broom)

a <- rnorm(6)
b <- rep(c("x", "y"), each = 3)
m <- aov(a ~ b)

augment(m)
#> Warning: The `augment()` method for objects of class `aov` is not maintained 
#> by the broom team, and is only supported through the `lm` tidier method. 
#> Please be cautious in interpreting and reporting broom output.
#> 
#> This warning is displayed once per session.
#> # A tibble: 6 × 8
#>        a b     .fitted .resid  .hat .sigma .cooksd .std.resid
#>    <dbl> <chr>   <dbl>  <dbl> <dbl>  <dbl>   <dbl>      <dbl>
#> 1  0.828 x       1.26  -0.431 0.333  1.50   0.0396     -0.398
#> 2  0.680 x       1.26  -0.579 0.333  1.48   0.0714     -0.534
#> 3  2.27  x       1.26   1.01  0.333  1.35   0.217       0.932
#> 4 -0.798 y       0.445 -1.24  0.333  1.25   0.330      -1.15 
#> 5 -0.194 y       0.445 -0.639 0.333  1.46   0.0870     -0.590
#> 6  2.33  y       0.445  1.88  0.333  0.758  0.755       1.74

augment(m)
#> # A tibble: 6 × 8
#>        a b     .fitted .resid  .hat .sigma .cooksd .std.resid
#>    <dbl> <chr>   <dbl>  <dbl> <dbl>  <dbl>   <dbl>      <dbl>
#> 1  0.828 x       1.26  -0.431 0.333  1.50   0.0396     -0.398
#> 2  0.680 x       1.26  -0.579 0.333  1.48   0.0714     -0.534
#> 3  2.27  x       1.26   1.01  0.333  1.35   0.217       0.932
#> 4 -0.798 y       0.445 -1.24  0.333  1.25   0.330      -1.15 
#> 5 -0.194 y       0.445 -0.639 0.333  1.46   0.0870     -0.590
#> 6  2.33  y       0.445  1.88  0.333  0.758  0.755       1.74

[github-actions]

This issue has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.