throw deprecation warnings

Author: teunbrand

R/fortify-lm.R

@@ -79,6 +79,9 @@
 #'   geom_point(aes(size = .cooksd / .hat)) +
 #'   scale_size_area()
 fortify.lm <- function(model, data = model$model, ...) {
+  lifecycle::deprecate_warn(
+    "3.6.0", I("`fortify(<lm>)`"), I("`broom::augment(<lm>)`")
+  )
   infl <- stats::influence(model, do.coef = FALSE)
   data$.hat <- infl$hat
   data$.sigma <- infl$sigma

R/fortify-multcomp.R

@@ -39,6 +39,9 @@ NULL
 #' @rdname fortify-multcomp
 #' @export
 fortify.glht <- function(model, data, ...) {
+  lifecycle::deprecate_warn(
+    "3.6.0", I("`fortify(<glht>)`"), I("`broom::tidy(<glht>)`")
+  )
   base::data.frame(
     lhs = rownames(model$linfct),
     rhs = model$rhs,
@@ -52,6 +55,9 @@ fortify.glht <- function(model, data, ...) {
 #' @method fortify confint.glht
 #' @export
 fortify.confint.glht <- function(model, data, ...) {
+  lifecycle::deprecate_warn(
+    "3.6.0", I("`fortify(<confint.glht>)`"), I("`broom::tidy(<confint.glht>)`")
+  )
   coef <- model$confint
   colnames(coef) <- to_lower_ascii(colnames(coef))
 
@@ -68,6 +74,9 @@ fortify.confint.glht <- function(model, data, ...) {
 #' @rdname fortify-multcomp
 #' @export
 fortify.summary.glht <- function(model, data, ...) {
+  lifecycle::deprecate_warn(
+    "3.6.0", I("`fortify(<summary.glht>)`"), I("`broom::tidy(<summary.glht>)`")
+  )
   coef <- as.data.frame(
     model$test[c("coefficients", "sigma", "tstat", "pvalues")])
   names(coef) <- c("estimate", "se", "t", "p")
@@ -86,6 +95,9 @@ fortify.summary.glht <- function(model, data, ...) {
 #' @rdname fortify-multcomp
 #' @export
 fortify.cld <- function(model, data, ...) {
+  lifecycle::deprecate_warn(
+    "3.6.0", I("`fortify(<summary.glht>)`"), I("`broom::tidy(<summary.glht>)`")
+  )
   base::data.frame(
     lhs = names(model$mcletters$Letters),
     letters = model$mcletters$Letters,