| Hao Zhu | 3f65f18 | 2019-01-22 02:55:46 -0500 | [diff] [blame^] | 1 | context("add_indent") |
| 2 | |
| 3 | test_that("add_indent can add to 1 row", { |
| 4 | observed <- kable(mtcars[1:4, 1:3], "latex") %>% |
| 5 | add_indent(1) %>% |
| 6 | as.character() |
| 7 | expected <- "\n\\begin{tabular}{l|r|r|r}\n\\hline\n & mpg & cyl & disp\\\\\n\\hline\n\\hspace{1em}Mazda RX4 & 21.0 & 6 & 160\\\\\n\\hline\nMazda RX4 Wag & 21.0 & 6 & 160\\\\\n\\hline\nDatsun 710 & 22.8 & 4 & 108\\\\\n\\hline\nHornet 4 Drive & 21.4 & 6 & 258\\\\\n\\hline\n\\end{tabular}" |
| 8 | expect_equal(observed, expected) |
| 9 | }) |
| 10 | |
| 11 | test_that("add_indent can be added multiple times.", { |
| 12 | observed <- kable(mtcars[1:4, 1:3], "latex") %>% |
| 13 | add_indent(1:3) %>% |
| 14 | add_indent(1) %>% |
| 15 | as.character() |
| 16 | expected <- "\n\\begin{tabular}{l|r|r|r}\n\\hline\n & mpg & cyl & disp\\\\\n\\hline\n\\hspace{1em}\\hspace{1em}Mazda RX4 & 21.0 & 6 & 160\\\\\n\\hline\n\\hspace{1em}Mazda RX4 Wag & 21.0 & 6 & 160\\\\\n\\hline\n\\hspace{1em}Datsun 710 & 22.8 & 4 & 108\\\\\n\\hline\nHornet 4 Drive & 21.4 & 6 & 258\\\\\n\\hline\n\\end{tabular}" |
| 17 | expect_equal(observed, expected) |
| 18 | }) |
| 19 | |
| 20 | |