tests/visual_tests/add_indent_and_group_rows_pdf.Rmd

---
title: "indents & row_group"
output: pdf_document
---

# Introduction
Nam non libero ut felis euismod efficitur. Maecenas ligula nisi, rutrum eu turpis quis, semper ultricies nibh. Quisque vehicula cursus erat. Donec aliquam augue ut magna vehicula lacinia. Quisque efficitur, arcu condimentum mollis scelerisque, tellus libero accumsan elit, in eleifend lorem lectus ut erat. Ut sit amet nulla quis turpis semper mattis. Ut rhoncus vitae nulla sit amet ultrices. Nulla justo ligula, rhoncus et interdum vel, cursus ut sem. Nullam elementum ullamcorper neque, imperdiet tempus sapien tincidunt et. Nulla diam nulla, varius ut nisi quis, hendrerit fringilla mi. In volutpat tincidunt faucibus. Donec luctus, mauris vitae consectetur placerat, elit velit tristique mauris, sed malesuada nisl sem eu justo. Nunc enim quam, pharetra vitae velit vel, posuere lacinia turpis. Proin volutpat porttitor ligula.

```{r}
library(knitr)
library(kableExtra)
dt <- mtcars[1:10, 1:8]
```

```{r}
kable(dt[1:5,], format = "latex", booktabs = T) %>%
  kable_styling() %>%
  add_indent(c(3, 5)) %>%
  add_indent(5)
```

```{r}
kable(rbind(dt, dt), format = "latex", booktabs = T) %>%
  kable_styling() %>%
  add_indent(c(3, 5)) %>%
  add_indent(5:12)
```

```{r}
kable(dt, format = "latex", booktabs = T) %>%
  kable_styling() %>%
  group_rows(index = c(" ", "Group A" = 4, "Group B" = 5))
```

```{r}
dt %>%
  dplyr::mutate(wt = paste0("%", mpg)) %>%
kable(format = "latex", booktabs = T) %>%
  kable_styling() %>%
  group_rows("Group 1", 4, 7, latex_align='r',colnum=3) %>%
  group_rows("Group 2", 8, 10)
```

```{r}
rbind(dt, dt, dt) %>%
kable(format = "latex", booktabs = T) %>%
  kable_styling() %>%
  group_rows("Group 1", 4, 7) %>%
  group_rows("Group 2", 8, 10, latex_align='c') %>%
  group_rows("Group 2", 13, 15, hline_before = T, hline_after = T, bold = F, italic = T, extra_latex_after = '\\addlinespace[0.2em]\n') %>%
  group_rows("Group 2", 20, 22)

aa <- mtcars
for (i in 1:nrow(aa)) {
  aa$hp[i] <- paste0(aa$hp[i], " (", 1, ")")
}
kable(head(aa, n = 20), caption = "test", booktabs = T, format = "latex") %>%
  kable_styling() %>%
  group_rows("these rows", 4, 16) %>%
  group_rows("Those rows", 17,20)
```