bug fix for collapse rows html
diff --git a/tests/visual_tests/collapse_rows_html.Rmd b/tests/visual_tests/collapse_rows_html.Rmd
index 9722d3d..9ca589e 100644
--- a/tests/visual_tests/collapse_rows_html.Rmd
+++ b/tests/visual_tests/collapse_rows_html.Rmd
@@ -6,6 +6,7 @@
```{r}
library(knitr)
library(kableExtra)
+set.seed(100)
collapse_rows_dt <- data.frame(C1 = c(rep("a", 10), rep("b", 5)),
C2 = c(rep("c", 7), rep("d", 3), rep("c", 2), rep("d", 3)),
C3 = 1:15,
diff --git a/tests/visual_tests/column_row_spec_html.Rmd b/tests/visual_tests/column_row_spec_html.Rmd
index aee5f70..919e4e7 100644
--- a/tests/visual_tests/column_row_spec_html.Rmd
+++ b/tests/visual_tests/column_row_spec_html.Rmd
@@ -38,10 +38,10 @@
)
kable(dt, "html") %>%
- kable_styling(full_width = F) %>%
+ kable_styling(full_width = F) %>%
+ row_spec(1, bold = T) %>%
column_spec(2, "5cm", bold = T) %>%
- column_spec(4, "3cm", italic = T) %>%
- row_spec(1, bold = T)
+ column_spec(4, "3cm", italic = T)
```
```{r}