Change htmlTable_styling to a pipable function
diff --git a/vignettes/htmlTable_styling.Rmd b/vignettes/htmlTable_styling.Rmd
index bc2761f..b953fbf 100644
--- a/vignettes/htmlTable_styling.Rmd
+++ b/vignettes/htmlTable_styling.Rmd
@@ -9,53 +9,49 @@
%\VignetteEncoding{UTF-8}
---
-# Basic HTML
+# Plain HTML
```{r}
library(knitr)
library(kableExtra)
dt <- mtcars[1:5, 1:2]
-kable(dt, format = "html")
+kable_input <- kable(dt, format = "html")
```
# Basic Bootstrap Table
```{r}
-kable(dt, format = "html", table.attr = htmlTable_styling())
+kable(dt, format = "html") %>%
+ htmlTable_styling()
```
# Boostrap Table Options
## Striped
```{r}
-kable(dt, format = "html", table.attr = htmlTable_styling(bootstrap_options = "striped"))
+kable(dt, format = "html") %>%
+ htmlTable_styling(bootstrap_options = "striped")
```
## Striped + Hover
```{r}
-kable(dt, format = "html", table.attr = htmlTable_styling(c("striped", "hover")))
+kable(dt, format = "html") %>%
+ htmlTable_styling(c("striped", "hover"))
```
## Other bootstrap options
```{r}
-kable(dt, format = "html",
- table.attr = htmlTable_styling(c("striped", "bordered", "hover", "condensed", "responsive")))
+kable(dt, format = "html") %>%
+ htmlTable_styling(c("striped", "bordered", "hover", "condensed", "responsive"))
```
# "Thin" Table and Floating options
```{r}
-kable(dt, format = "html",
- table.attr = htmlTable_styling(
- c("striped", "bordered", "condensed"),
- full_width = F
- ))
+kable(dt, format = "html") %>%
+ htmlTable_styling(c("striped", "bordered", "condensed"), full_width = F)
```
```{r}
-kable(dt, format = "html",
- table.attr = htmlTable_styling(
- c("striped", "bordered", "condensed"),
- full_width = F,
- float = "left"
- ))
+kable(dt, format = "html") %>%
+ htmlTable_styling(c("striped", "bordered", "condensed"), full_width = F, float = "left")
```