| Hao Zhu | 9410a27 | 2020-08-03 01:11:47 -0400 | [diff] [blame] | 1 | #' Dummy html table for testing |
| 2 | #' @description Create dummy table for testing in kE |
| 3 | #' @export |
| 4 | dummy_html_tbl <- function() { |
| 5 | return(kable_styling(kable(mtcars[1:5, 1:5], "html", |
| 6 | align = c("l", "l", rep("r", 4))))) |
| 7 | } |
| 8 | |
| 9 | #' Dummy latex table for testing |
| 10 | #' @description Create dummy table for testing in kE |
| 11 | #' @export |
| 12 | dummy_latex_tbl <- function(booktabs = T) { |
| 13 | return(kable_styling(kable(mtcars[1:5, 1:5], "latex", booktabs = booktabs, |
| 14 | align = c("l", "l", rep("r", 4))))) |
| 15 | } |