Kludge to fix mishandling of lmerModTest objects

NEWS.md

@@ -9,6 +9,8 @@ Thanks to [Paul Djupe](http://pauldjupe.com/) for alerting me to this.
 * The `tidy()` method for `sim_slopes` objects no longer returns numbers as
 strings. This had downstream effects on, e.g., the `plot()` method for 
 `sim_slopes`. (#22; thanks to Noah Greifer)
+* `sim_slopes()` now handles `lmerModTest` objects properly. Thanks to Eric 
+Shuman for bringing it to my attention.
 
 # interactions 1.1.0
 

R/simple_slopes.R

@@ -302,6 +302,7 @@ sim_slopes <- function(model, pred, modx, mod2 = NULL, modx.values = NULL,
   tcol <- try(colnames(summary(model)$coefficients)[3], silent = TRUE)
   if (class(tcol) != "try-error") {
     tcol <- gsub("value", "val.", tcol)
+    if (tcol == "df") tcol <- "t val." # kludge for lmerModTest
     which.cols <- c("Est.", "S.E.", unlist(make_ci_labs(ci.width)), tcol)
     if (pvals == TRUE) {which.cols <- c(which.cols, "p")}
   } else {
@@ -464,15 +465,6 @@ sim_slopes <- function(model, pred, modx, mod2 = NULL, modx.values = NULL,
       newmod <- update(model, data = dt)
     }
 
-    # Need proper name for test statistic
-    tcol <- try(colnames(summary(newmod)$coefficients)[3], silent = TRUE)
-    if (class(tcol) != "try-error") {
-      tcol <- gsub("value", "val.", tcol)
-      which.cols <- c("Est.", "S.E.", unlist(make_ci_labs(ci.width)), tcol, "p")
-    } else {
-      which.cols <- NULL
-    }
-
     # Getting SEs, robust or otherwise
     if (robust == TRUE) {
       if (!is.null(v.cov)) {