| Hao Zhu | e414511 | 2015-11-05 17:52:59 -0500 | [diff] [blame] | 1 | context("Add_Footnote") |
| 2 | ##### |
| 3 | |
| 4 | rtable <- data.frame(variable = c("mpg", "wt"), mean = c(20.091, 3.217), sd = c(6.027, 0.978)) |
| Hao Zhu | e0a36a8 | 2015-11-23 15:35:20 -0500 | [diff] [blame^] | 5 | mdtable <- kable(rtable) |
| Hao Zhu | e414511 | 2015-11-05 17:52:59 -0500 | [diff] [blame] | 6 | htmltable_1 <- kable(rtable, format = "html") |
| 7 | htmltable_2 <- kable(rtable, format = "html", caption = "Table", table.attr = "class = 'table table-striped table-hover'") |
| Hao Zhu | 8977a8a | 2015-11-19 16:52:21 -0500 | [diff] [blame] | 8 | htmltable_3 <- kable(rtable, row.names = T, format = "html", caption = "Table", table.attr = "class = 'table table-striped table-hover'") |
| Hao Zhu | e414511 | 2015-11-05 17:52:59 -0500 | [diff] [blame] | 9 | latextable_1 <- kable(rtable, format = "latex") |
| 10 | latextable_2 <- kable(rtable, format = "latex", caption = "Table", row.names = T, align = c("l", "c", "c")) |
| 11 | latextable_3 <- kable(rtable, format = "latex", booktab = T) |
| 12 | latextable_4 <- kable(rtable, format = "latex", booktab = T, caption = "Table") |
| Hao Zhu | dc4b714 | 2015-11-19 10:37:53 -0500 | [diff] [blame] | 13 | latextable_5 <- kable(rtable, format = "latex", longtable = T) |
| 14 | latextable_6 <- kable(rtable, format = "latex", longtable = T, caption = "Table long") |