我有一个输出HTML的rmarkdown文档。我有自己的CSS样式,可以将其添加到YAML标头中。我也想控制特定代码块的CSS。我有一个仪表盘(3x2的网格图),我希望它的宽度大于主文档的宽度。
我发现了两个问题:
Add a CSS class to single code chunks in RMarkdown
Adding custom CSS tags to an RMarkdown html document
但是他们俩都没有为我工作(或者我不明白答案)。我想更改绘图的宽度,使其浮动到边距中,例如宽度:110%。我尝试过:
```{r dash1, fig.height=16, fig.width=14, results="asis"}
cat("
<style>
.toc-content {
width: 110%;
}
</style>
")
margin = theme(plot.margin = unit(c(1,2,1,2), "cm"))
pl_1 <- list(g_1_kaupmattur, g_2_gallup, g_3_vnv, g_4_spa, g_5_ibud, g_6_swirlo)
grid.arrange(grobs = lapply(pl_1, "+", margin), ncol = 2)
```
这改变了整个文档,而不仅仅是这个特定块的输出。
我还尝试使用width: 110%
创建新的CSS样式,并将其添加到块选项中,如下所示:
```{r dash1, fig.height=16, fig.width=14, class.source="dash_styles"}
margin = theme(plot.margin = unit(c(1,2,1,2), "cm"))
pl_1 <- list(g_1_kaupmattur, g_2_gallup, g_3_vnv, g_4_spa, g_5_ibud, g_6_swirlo)
grid.arrange(grobs = lapply(pl_1, "+", margin), ncol = 2)
```
它也不起作用。