commit 8f202994acfb89c662e53f5a26274277d511b110
author Hao Zhu <haozhu233@gmail.com> Sat Jul 15 02:20:18 2017 -0400
committer Hao Zhu <haozhu233@gmail.com> Sat Jul 15 02:20:18 2017 -0400
tree b247b47640b1eec559165073180c271a0e45846d
parent 501fb45f408204983ab5ec0801de7bcc6e1749be

- Fix a bug in collapse_row on removing addlinespace
- remove addlinespace from group_rows
- add monospace to column_spec

tests/visual_tests/column_row_spec_html.Rmd

diff --git a/tests/visual_tests/column_row_spec_html.Rmd b/tests/visual_tests/column_row_spec_html.Rmd
index 919e4e7..7bbe229 100644
--- a/tests/visual_tests/column_row_spec_html.Rmd
+++ b/tests/visual_tests/column_row_spec_html.Rmd
@@ -41,6 +41,7 @@
   kable_styling(full_width = F)   %>%
   row_spec(1, bold = T) %>%
   column_spec(2, "5cm", bold = T) %>%
+  column_spec(3, monospace = T) %>%
   column_spec(4, "3cm", italic = T)
 ```
 
@@ -55,17 +56,3 @@
   column_spec(7, bold = T) %>%
   row_spec(5, bold = T, italic = T)
 ```
-
-```{r}
-dt <- mtcars[1:5, 1:6]
-dt$wt <- paste(dt$wt, "%")
-dt$mpg <- paste(dt$mpg, "&")
-dt$cyl <- paste(dt$cyl, "$")
-
-kable(dt, "html") %>%
-  kable_styling(full_width = F) %>%
-  add_header_left(c("aaa" = 4, "bbb"), "A") %>%
-  add_header_left(c("cccasjof jsafjiosadjfxclxz cjoiwdjosfns daflasfj asiofjsdfio" = 2, "ddd" = 3), "B") %>%
-  column_spec(1, bold = T, width = "2cm") %>%
-  column_spec(2, italic = T)
-```

tests/visual_tests/column_row_spec_pdf.Rmd

diff --git a/tests/visual_tests/column_row_spec_pdf.Rmd b/tests/visual_tests/column_row_spec_pdf.Rmd
index b639092..8ffe566 100644
--- a/tests/visual_tests/column_row_spec_pdf.Rmd
+++ b/tests/visual_tests/column_row_spec_pdf.Rmd
@@ -28,7 +28,7 @@
     "Vivamus venenatis egestas eros ut tempus. Vivamus id est nisi. "
   ),
   contents2 = c(
-    "Lorem ipsum dolor",
+    "Lorem {ipsum} dolor",
     "In eu urna ", 
     "Vivamus venenatis"
   ),
@@ -41,6 +41,7 @@
 
 kable(dt, "latex", booktabs = T, align = "r") %>%
   column_spec(2, "3cm", bold = T) %>%
-  column_spec(4, "3cm", italic = T)
+  column_spec(3, monospace = T)%>%
+  column_spec(4, "3cm", italic = T) 
 ```
 

tests/visual_tests/indent_and_row_group.Rmd

diff --git a/tests/visual_tests/indent_and_row_group.Rmd b/tests/visual_tests/indent_and_row_group.Rmd
index 789fff8..b9e35bd 100644
--- a/tests/visual_tests/indent_and_row_group.Rmd
+++ b/tests/visual_tests/indent_and_row_group.Rmd
@@ -27,10 +27,6 @@
   mtcars$wt[i] <- paste0(mtcars$wt[i], " &")
   mtcars$mpg[i] <- paste0(mtcars$mpg[i], "%")
 }
-kable(head(mtcars, n = 20), "latex", caption = "test", booktabs = T) %>%
-  kable_styling() %>%
-  # group_rows("these rows", 4, 16) %>%
-  # group_rows("Those rows", 17,20) %>%
-  # add_header_above(c(" ", "aaa$" = 5, "bbb%" = 6)) %>%
-  add_header_left(c("jj", "aaa" = 5, "bbb" = 6)) 
+kable(head(iris, n = 20), "latex", caption = "test", booktabs = T,
+      align = c("ccccc"))
 ```