diff --git a/tests/visual_tests/collapse_rows_pdf.Rmd b/tests/visual_tests/collapse_rows_pdf.Rmd
new file mode 100644
index 0000000..795bbe1
--- /dev/null
+++ b/tests/visual_tests/collapse_rows_pdf.Rmd
@@ -0,0 +1,17 @@
+---
+title: "Untitled"
+output: pdf_document
+---
+
+```{r}
+library(knitr)
+library(kableExtra)
+collapse_rows_dt <- data.frame(C1 = c(rep("aaaaaa aaaaaa", 10), rep("bbbbb bbbbbb", 5)),
+                 C2 = c(rep("c", 7), rep("d", 3), rep("c", 2), rep("d", 3)),
+                 C3 = 1:15,
+                 C4 = sample(c(0,1), 15, replace = TRUE))
+kable(collapse_rows_dt, "latex", align = "c", booktabs = T) %>%
+  kable_styling() %>%
+  column_spec(1, bold=T, width = "2em") %>%
+  collapse_rows(1:2)
+```