Magic mirror for html; minor changes; escape for add footnote
diff --git a/tests/testthat/test-add_footnote.r b/tests/testthat/test-add_footnote.r
index 1083e6c..32783c9 100644
--- a/tests/testthat/test-add_footnote.r
+++ b/tests/testthat/test-add_footnote.r
@@ -4,6 +4,7 @@
rtable <- data.frame(variable = c("mpg", "wt"), mean = c(20.091, 3.217), sd = c(6.027, 0.978))
htmltable_1 <- kable(rtable, format = "html")
htmltable_2 <- kable(rtable, format = "html", caption = "Table", table.attr = "class = 'table table-striped table-hover'")
+htmltable_3 <- kable(rtable, row.names = T, format = "html", caption = "Table", table.attr = "class = 'table table-striped table-hover'")
latextable_1 <- kable(rtable, format = "latex")
latextable_2 <- kable(rtable, format = "latex", caption = "Table", row.names = T, align = c("l", "c", "c"))
latextable_3 <- kable(rtable, format = "latex", booktab = T)