Add test for #813 fix.

haozhu233 · Jan 31, 2024 · 5d4d427 · 5d4d427
1 parent b1bae80
commit 5d4d427
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-bugfix.R b/tests/testthat/test-bugfix.R
@@ -1,3 +1,11 @@
+test_that("Issue #812:  table without header works in collapse_rows", {
+  tab <- kbl(mtcars[1:3, 1:4], col.names = NULL,
+             format = "html", booktabs = TRUE) |>
+    kable_styling(full_width=TRUE) |>
+    collapse_rows(columns=2:3)
+  expect_s3_class(tab, "knitr_kable")
+})
+
 test_that("Issue #806: custom rule widths", {
   expect_snapshot(
     kbl(mtcars[1:3, 1:4],