From e1f8e23e3e2b50b3346d0ee28eb7a16ec6fead46 Mon Sep 17 00:00:00 2001
From: Jacob Long <jlongrc@gmail.com>
Date: Thu, 4 Jul 2019 17:26:01 -0400
Subject: [PATCH] Add broom as soft dependency again

---
 DESCRIPTION                       | 1 +
 tests/testthat/test_sim_margins.R | 4 ++--
 tests/testthat/test_sim_slopes.R  | 4 ++--
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index acfccaa..9780d66 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -25,6 +25,7 @@ Imports: ggplot2,
   rlang (>= 0.3.0),
   tibble
 Suggests:
+  broom,
   cowplot,
   ggstance,
   glue,
diff --git a/tests/testthat/test_sim_margins.R b/tests/testthat/test_sim_margins.R
index d975ac1..75eca0d 100644
--- a/tests/testthat/test_sim_margins.R
+++ b/tests/testthat/test_sim_margins.R
@@ -102,7 +102,7 @@ test_that("sim_margins works for lm w/ non-focal character", {
 
 context("sim_margins methods")
 
-if (requireNamespace("huxtable") && requireNamespace("generics")) {
+if (requireNamespace("huxtable") && requireNamespace("broom")) {
   test_that("as_huxtable.sim_margins works", {
     ss3 <- sim_margins(model = fit, pred = Murder, modx = Illiteracy,
                       mod2 = HSGrad)
@@ -124,7 +124,7 @@ if (requireNamespace("huxtable") && requireNamespace("generics")) {
   })
 }
 
-if (requireNamespace("ggstance") && requireNamespace("generics")) {
+if (requireNamespace("ggstance") && requireNamespace("broom")) {
   test_that("plot.sim_margins works", {
     ss3 <- sim_margins(model = fit, pred = Murder, modx = Illiteracy,
                       mod2 = HSGrad)
diff --git a/tests/testthat/test_sim_slopes.R b/tests/testthat/test_sim_slopes.R
index a57e14a..ea85c7e 100644
--- a/tests/testthat/test_sim_slopes.R
+++ b/tests/testthat/test_sim_slopes.R
@@ -69,7 +69,7 @@ test_that("sim_slopes works for lm w/ non-focal character", {
 
 context("sim_slopes methods")
 
-if (requireNamespace("huxtable") && requireNamespace("generics")) {
+if (requireNamespace("huxtable") && requireNamespace("broom")) {
   test_that("as_huxtable.sim_slopes works", {
     ss3 <- sim_slopes(model = fit, pred = Murder, modx = Illiteracy,
                       mod2 = HSGrad)
@@ -79,7 +79,7 @@ if (requireNamespace("huxtable") && requireNamespace("generics")) {
   })
 }
 
-if (requireNamespace("ggstance") && requireNamespace("generics")) {
+if (requireNamespace("ggstance") && requireNamespace("broom")) {
   test_that("plot.sim_slopes works", {
     ss3 <- sim_slopes(model = fit, pred = Murder, modx = Illiteracy,
                       mod2 = HSGrad)