Создано последовательное форматирование подписи между фигурами и флоттексами в выходе RMD HTML ⇐ CSS

[Anonymous]

У меня проблемы с получением подписей для фигур и таблиц, имеющих постоянное форматирование при вязании 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