Fix the duplicated row bug in LaTeX table. Fix a bug introduced in #73. Change back to div for cell_spec
diff --git a/tests/visual_tests/add_header_left.Rmd b/tests/visual_tests/add_header_left.Rmd
deleted file mode 100644
index 3083fa3..0000000
--- a/tests/visual_tests/add_header_left.Rmd
+++ /dev/null
@@ -1,19 +0,0 @@
----
-title: "add_header_left"
-output:
- pdf_document:
- keep_tex: true
----
-
-```{r}
-library(knitr)
-library(kableExtra)
-
-mtcars[1:10, 1:6] %>%
- kable("latex", booktabs= T) %>%
- kable_styling(latex_options = "striped") %>%
- add_header_above(c(" ", "a%" = 3, "b" = 3)) %>%
- add_header_left(c("a%knjnuulkjlkj" = 3, "b" = 7), "new", align = "l") %>%
- add_header_left(c("aadjfoi adlfsjs adsa" = 4, "b" = 6), "new2", width = "1.5cm") %>%
- add_header_left(c("a" = 5, "b" = 5), "xx", width = "1cm", align = "r")
-```
diff --git a/tests/visual_tests/add_header_left_html.Rmd b/tests/visual_tests/add_header_left_html.Rmd
deleted file mode 100644
index 09e739f..0000000
--- a/tests/visual_tests/add_header_left_html.Rmd
+++ /dev/null
@@ -1,17 +0,0 @@
----
-title: "add_header_left"
-output: html_document
----
-
-```{r}
-library(knitr)
-library(kableExtra)
-
-mtcars[1:10, 1:6] %>%
- kable("html") %>%
- kable_styling() %>%
- add_header_above(c(" ", "a" = 3, "b" = 3)) %>%
- add_header_left(c("a" = 2, "b" = 3), width = "3cm", bold = T) %>%
- add_header_left(c("a%" = 3, "b" = 7)) %>%
- column_spec(1, bold = T, width = "1cm")
-```
diff --git a/tests/visual_tests/cell_spec_html.Rmd b/tests/visual_tests/cell_spec_html.Rmd
index fb645ad..e56a260 100644
--- a/tests/visual_tests/cell_spec_html.Rmd
+++ b/tests/visual_tests/cell_spec_html.Rmd
@@ -5,6 +5,14 @@
output: html_document
---
+<script>
+ $( function() {
+ $( document ).tooltip();
+ } );
+</script>
+
+
+<div><div class = "tooltip">sss</div>ssa</div>
```{r, include=F}
library(knitr)
library(kableExtra)
@@ -17,7 +25,7 @@
mpg = cell_spec(mpg, "html", color = "white", background = spec_color(mpg)),
disp = cell_spec(disp, "html", color = spec_color(disp, option = "B"),
bold = T, font_size = spec_font_size(disp)),
- hp = cell_spec(hp, "html", hover_message = paste0("cyl:\n", cyl))
+ hp = cell_spec(hp, "html", tooltip = paste0("cyl:\n", cyl))
) %>%
kable("html", escape = F) %>%
kable_styling("condensed", full_width = F)
@@ -29,7 +37,7 @@
cell_spec(x, "html",
color = spec_color(x, option = "A"),
font_size = spec_font_size(x),
- bold = T)
+ bold = T, tooltip = "1")
}) %>%
kable("html", escape = F, booktabs = T, linesep = "", align = "c")%>%
row_spec(0, angle = 270, align = "right") %>%
diff --git a/tests/visual_tests/tooltip.Rmd b/tests/visual_tests/tooltip.Rmd
new file mode 100644
index 0000000..55f81b3
--- /dev/null
+++ b/tests/visual_tests/tooltip.Rmd
@@ -0,0 +1,35 @@
+---
+title: "Untitled"
+author: "Hao"
+date: "10/15/2017"
+output: html_document
+---
+
+```{r, include=FALSE}
+library(knitr)
+library(kableExtra)
+library(tidyverse)
+```
+
+```{r}
+htmlFun = function(content) {
+ x = htmltools::tags$div(content, class = 'error')
+ # you could also do this if you don't care about escaping HTML entities in 'content':
+ # x = htmltools::HTML(paste('<div class="error">', content, '</div>'))
+ d = htmltools::htmlDependency(
+ 'knitr-css', '1.2.3', src = system.file('misc', package = 'knitr'),
+ stylesheet = 'knitr.css'
+ )
+ x = htmltools::attachDependencies(x, d)
+ x
+}
+
+htmlFun('Hello World!')
+```
+
+```{r}
+mtcars[1:5, 1:2] %>%
+ mutate(mpg = cell_spec(mpg, tooltip = cyl)) %>%
+ kable("html", escape = F) %>%
+ htmltools::HTML()
+```