如题，在生成ioslides_presentation的时候，一般情况下默认幻灯片的背景色是白色，但是整个文档的背景色是黑色:
- 同时使用 formattable 包和 sparkline 包的时候，幻灯片的背景色还是白色，但整个文档的背景色也变成白色了。
- 同时使用 DT 包和 sparkline 包的时候，正常
- 仅使用 formattable 包的时候，正常
formattable+sparkline
代码
---
title: "Untitled"
author: "yuanfan"
date: '2022-06-03'
output: ioslides_presentation
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
## formattable
```{r}
library(sparkline)
library(formattable)
set.seed(1234)
x = rnorm(10)
table1.formattable <- as.htmlwidget(formattable(
data.frame(
column1 = c('坂田银时', '神乐', '志村新八', '定春'), # 第一列
column2 = c(100, 10000, 10, 100), # 第二列
column3 = c(1:4), # 第三列
sparkline = c( # 第四列
spk_chr(x, type = 'line'), # 第四列第一行
spk_chr(abs(x), type = 'line'), # 第四列第二行
spk_chr(x, type = 'bar'), # 第四列第三行
spk_chr(abs(x), type = 'bar') # 第四列第四行
),
stringsAsFactors = FALSE)))
spk_add_deps(table1.formattable)
```
结果
DT+sparkline
代码
---
title: "Untitled"
author: "yuanfan"
date: '2022-06-03'
output: ioslides_presentation
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE,message = FALSE)
```
## DT
```{r}
library(sparkline)
library(DT)
library(tibble)
library(dplyr)
library(purrr)
set.seed(1234)
x = rnorm(10)
table1 <-
tibble(
column1 = c('坂田银时', '神乐', '志村新八', '定春'), # 第一列
column2 = c(100, 10000, 10, 100), # 第二列
column3 = c(1:4), # 第三列
sparkline = list( # 第四列
v1 = x, # 第四列第一行
v2 = abs(x), # 第四列第二行
v3 = x, # 第四列第三行
v4 = abs(x) # 第四列第四行
)
)
table1.dt <- table1
table1.dt$sparkline <- table1.dt$sparkline %>%
map(~ sparkline(.x, type = "box")) %>%
map(htmltools::as.tags) %>%
map_chr(as.character)
DT::datatable(table1.dt, escape = FALSE) %>% spk_add_deps()
```
结果
仅formattable
代码
---
title: "Untitled"
author: "yuanfan"
date: '2022-06-03'
output: ioslides_presentation
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
## formattable
```{r}
library(formattable)
table1 <- data.frame(
column1 = c('坂田银时', '神乐', '志村新八', '定春'),
column2 = c(100, 10000, 10, 100),
column3 = c(1:4)
)
formattable(table1)
```
结果
