disable execution of examples for notes on cran
diff --git a/vignettes/awesome_table_in_html.Rmd b/vignettes/awesome_table_in_html.Rmd
index bf9ea7d..ae75688 100644
--- a/vignettes/awesome_table_in_html.Rmd
+++ b/vignettes/awesome_table_in_html.Rmd
@@ -79,7 +79,7 @@
```{r}
dt %>%
kbl() %>%
- kable_paper("hover")
+ kable_paper("hover", full_width = F)
```
```{r}
@@ -91,7 +91,7 @@
```{r}
dt %>%
kbl() %>%
- kable_classic_2()
+ kable_classic_2(full_width = F)
```
```{r}
@@ -203,7 +203,7 @@
kbl() %>%
kable_paper(full_width = F) %>%
column_spec(2, color = spec_color(mtcars$mpg[1:8]),
- link = "https://haozhu233.github.io/kableExtra") %>%
+ link = "https://haozhu233.github.io/kableExtra/") %>%
column_spec(6, color = "white",
background = spec_color(mtcars$drat[1:8], end = 0.7),
popover = paste("am:", mtcars$am[1:8]))
@@ -599,13 +599,13 @@
## Use it with sparkline
Well, this is not a feature but rather a documentation of how to use the `sparkline` package together with this package. The easiest way is sort of a hack. You can call `sparkline::sparkline(0)` somewhere on your document where no one would mind so its dependencies could be loaded without any hurdles. Then you use `sparkline::spk_chr()` to generate the text. For a working example, see: [Chinese names in US babynames](https://cranky-chandrasekhar-cfefcd.netlify.app/)
-```{r, eval=FALSE}
+```{r}
# Not evaluated
library(sparkline)
sparkline(0)
```
-```{r,eval=FALSE}
+```{r}
spk_dt <- data.frame(
var = c("mpg", "wt"),
sparkline = c(spk_chr(mtcars$mpg), spk_chr(mtcars$wt))
@@ -615,8 +615,6 @@
kable_paper(full_width = F)
```
-
-
# From other packages
Since the structure of `kable` is relatively simple, it shouldn't be too difficult to convert HTML or LaTeX tables generated by other packages to a `kable` object and then use `kableExtra` to modify the outputs. If you are a package author, feel free to reach out to me and we can collaborate.