| library(testthat) |
| library(knitr) |
| |
| dt <- mtcars[1:5, 1:8] |
| |
| |
| # ---- styling ----------------------------------------------------------------- |
| testthat::context("styling") |
| |
| test_that("dry_run", { |
| observed <- dt[1:3] %>% |
| kable(format = "latex", booktabs = T, caption = "xxx") %>% |
| kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left") |
| # dput(observed) |
| |
| expected <- |
| structure( |
| "\\rowcolors{2}{gray!6}{white}\n\\begin{wraptable}{l}{6.6cm}\n\n\\caption{\\label{tab:}xxx}\n\\centering\n\\fontsize{6}{8}\\selectfont\n\\begin{tabular}[t]{lrrr}\n\\hiderowcolors\n\\toprule\n & mpg & cyl & disp\\\\\n\\midrule\n\\showrowcolors\nMazda RX4 & 21.0 & 6 & 160\\\\\nMazda RX4 Wag & 21.0 & 6 & 160\\\\\nDatsun 710 & 22.8 & 4 & 108\\\\\nHornet 4 Drive & 21.4 & 6 & 258\\\\\nHornet Sportabout & 18.7 & 8 & 360\\\\\n\\bottomrule\n\\end{tabular}\n\\end{wraptable}\n\\rowcolors{2}{white}{white}", |
| format = "latex", |
| class = "knitr_kable", |
| kable_meta = structure( |
| list( |
| tabular = "tabular", |
| booktabs = TRUE, |
| align = "lrrr", |
| valign = "[t]", |
| ncol = 4L, |
| nrow = 6, |
| colnames = c(" ", "mpg", "cyl", "disp"), |
| rownames = c("", "Mazda", "Mazda", "Datsun", "Hornet", |
| "Hornet"), |
| caption = "\\label{tab:}x", |
| contents = c( |
| " & mpg & cyl & disp", |
| "Mazda RX4 & 21.0 & 6 & 160", |
| "Mazda RX4 Wag & 21.0 & 6 & 160", |
| "Datsun 710 & 22.8 & 4 & 108", |
| "Hornet 4 Drive & 21.4 & 6 & 258", |
| "Hornet Sportabout & 18.7 & 8 & 360" |
| ), |
| centering = TRUE, |
| table_env = TRUE, |
| align_vector = c("l", "r", "r", "r"), |
| align_vector_origin = c("l", |
| "r", "r", "r"), |
| valign2 = "\\[t\\]", |
| valign3 = "t", |
| begin_tabular = "\\\\begin\\{tabular\\}\\[t\\]", |
| end_tabular = "\\\\end\\{tabular\\}" |
| ), |
| .Names = c( |
| "tabular", |
| "booktabs", |
| "align", |
| "valign", |
| "ncol", |
| "nrow", |
| "colnames", |
| "rownames", |
| "caption", |
| "contents", |
| "centering", |
| "table_env", |
| "align_vector", |
| "align_vector_origin", |
| "valign2", |
| "valign3", |
| "begin_tabular", |
| "end_tabular" |
| ) |
| ) |
| ) |
| |
| expect_equal(observed, expected) |
| }) |