У меня проблемы с получением подписей для фигур и таблиц, имеющих постоянное форматирование при вязании RMD -файла с выводом HTML из пакета Bookdown. Я пытался применить различные методы из документации здесь и различных сообщений на форумах на переполнении стека, но ни один из них не имеет никакого значения. Несколько примеров вещей, которые я попробовал без успеха ниже. Бонусные точки для решения той же проблемы при переходе на выход PDF. < /P>
---
title: "Caption Testing"
output:
bookdown::html_document2:
toc: false
fig_caption: yes
number_sections: false
self_contained: true
mode: selfcontained
---
body{
font-size: 16pt;
}
.caption{
font-size: 16pt;
font-weight: bold
}
caption{
font-size: 16pt;
font-weight: bold
}
caption{
font-size: 16pt;
font-weight: bold
}
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE, out.width='100%' )
library(tidyverse)
library(flextable)
set_flextable_defaults(font.size=16)
```
## Placeholder Heading
Want to produce html document that has consistent formatting between figure and table captions. Multiple approaches applied none seem to have any effect. I have been avoiding set_caption(as_paragraph(etc...)) as I would prefer to set as a more global option and not having to copy/paste options for each table and consistency with how figure labels are formatted where the second css style code(.caption) gives desired result.
```{r figure, fig.cap="Example ggplot" , fig.asp=1}
mtcars %>%
ggplot(aes(cyl, wt) )+geom_point()
```
More text
```{r table1, echo=FALSE}
head(mtcars,10) %>%
flextable() %>%
set_caption("No extra formatting")
```
More text
```{r table2, echo=FALSE, tab.cap="Set in chunk options using tab.cap.style=.caption" ,tab.cap.style=".caption"}
head(mtcars,10) %>%
flextable()
```
More text
```{r table3, echo=FALSE, tab.cap="Set in chunk options using tab.cap.style=caption" ,tab.cap.style="caption"}
head(mtcars,10) %>%
flextable()
```
More text
```{r table4, echo=FALSE }
head(mtcars,10) %>%
flextable() %>%
set_caption(caption = "Set in set_caption style=caption", style = "caption")
```
More text
```{r table5, echo=FALSE }
head(mtcars,10) %>%
flextable() %>%
set_caption(caption = "Set in set_caption style=.caption", style = ".caption")
```
More text
```{r table6, echo=FALSE }
head(mtcars,10) %>%
flextable() %>%
set_caption(caption = "Set in set_caption html_classes=.caption",html_classes = ".caption")
```
Подробнее здесь: https://stackoverflow.com/questions/791 ... n-rmd-html
