Fix apply_table_theme() (#856)

* Fix `apply_table_theme()`
Fixes #855

* use theme_tt

* docs

* test

* updatew wordlist

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 0.19.8.8
+Version: 0.19.8.9
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -193,7 +193,7 @@ Suggests:
     survey,
     survival,
     testthat,
-    tinytable,
+    tinytable (>= 0.1.0),
     truncreg,
     tweedie,
     TMB,

NEWS.md

@@ -16,6 +16,8 @@
 
 * `format_ci()` now works for factors and character vectors again.
 
+* Fixed issues with latest release of _tinytable_.
+
 # insight 0.19.8
 
 ## General

R/apply_table_theme.R

@@ -1,7 +1,7 @@
 #' @param out A `tinytable` object.
 #' @param x The underlying data frame, used to create `out`.
 #' @param theme The theme to apply to the table. One of `"default"`, `"grid"`,
-#' `"striped"`, `"bootstrap"`, or `"darklines"`.
+#' `"striped"`, `"bootstrap"`, `"void"`, `"tabular"`, or `"darklines"`.
 #' @param sub_header_positions A vector of row positions to apply a border to.
 #' Currently particular for internal use of other _easystats_ packages.
 #' @rdname export_table
@@ -13,17 +13,15 @@ apply_table_theme <- function(out, x, theme = "default", sub_header_positions =
   }
 
   # packages available?
-  check_if_installed("tinytable")
+  check_if_installed("tinytable", minimum_version = "0.1.0")
 
   switch(theme,
-    grid = {
-      out <- tinytable::tt(out, theme = "grid")
-    },
-    striped = {
-      out <- tinytable::tt(out, theme = "striped")
-    },
+    grid = ,
+    striped = ,
+    tabular = ,
+    void = ,
     bootstrap = {
-      out <- tinytable::tt(out, theme = "bootstrap")
+      out <- tinytable::theme_tt(out, theme = theme)
     },
     darklines = {
       # borders for sub headings

inst/WORDLIST

@@ -169,6 +169,7 @@ systemfit
 terciles
 th
 tidymodels
+tinytable
 tranformations
 tseries
 tweedie

tests/testthat/test-apply_table_theme.R

@@ -0,0 +1,10 @@
+skip_if_not_installed("tinytable", minimum_version = "0.1.0")
+
+test_that("apply_table_theme", {
+  x <- mtcars[1:4, 1:3]
+  out <- tinytable::tt(x)
+  out@output <- "html"
+  expect_s4_class(apply_table_theme(out, x, theme = "bootstrap"), "tinytable")
+  expect_s4_class(apply_table_theme(out, x, theme = "darklines"), "tinytable")
+  expect_s4_class(apply_table_theme(out, x, theme = NULL), "tinytable")
+})