Repeated figure caption when figure and table captions are mixed

[cscheid]

Repro:

---
title: "sidebyside"
format: pdf
editor: visual
keep-tex: true
---

```{r}
#| layout-ncol: 2
#| layout-valign: bottom
#| fig-cap: "A plot"
#| tbl-cap: "A table"

library(knitr)

# plot on the left
plot(cars)

# table on the right
kable(head(cars))
```

Note the duplicated caption on the figure:

[mcanouil]

FYI, still happening with 1.4 cross-reference system.

[cderv]

looking at the intermediate .md for this example lead me to believe this is something with knitr happening.

Smaller examples where we can see fig-cap is somehow not ignored and put below the table produced by knitr

---
title: "fig-cap table"
format: html
keep-md: true
---

```{r}
#| fig-cap: "A plot"
library(knitr)
kable(head(cars))
```

Intermediate .md is

---
title: "fig-cap table"
format: html
keep-md: true
---


::: {.cell}

```{.r .cell-code}
library(knitr)
kable(head(cars))
```

::: {.cell-output-display}


| speed| dist|
|-----:|----:|
|     4|    2|
|     4|   10|
|     7|    4|
|     7|   22|
|     8|   16|
|     9|   10|



A plot
:::
:::

So this is happening before any Quarto cross ref happening

[cderv]

I can confirm this is us adding the duplicate

• We append caption when wrapping asis output content
  

  quarto-cli/src/resources/rmd/patch.R

  Lines 93 to 97 in b776ec1

  	# generate output div
  	caption <- figure_cap(options)[[1]]
  	if (nzchar(caption)) {
  	x <- paste0(x, "\n\n", caption)
  	}

  
  and a kable() is outputing asis_output() content
• figure_cap is today not reacting to content
  

  quarto-cli/src/resources/rmd/hooks.R

  Lines 989 to 1003 in b776ec1

  	figure_cap <- function(options) {
  	output_label <- output_label(options)
  	if (is.null(output_label) || is_figure_label(output_label)) {
  	fig.cap <- options[["fig.cap"]]
  	fig.subcap <- options[["fig.subcap"]]
  	if (length(fig.subcap) != 0)
  	fig.subcap
  	else if (length(fig.cap) != 0)
  	fig.cap
  	else
  	""
  	} else {
  	""
  	}
  	}

This comes from first support for tbl caption 81d58ed

and I believe fixing this is part of the broader topic of teaching our computation engine out floats and correct markdown intermediate they should output

• Teach engine about new custom crossref #7665

and related to

• mini-epic: AST uniformization across engines for floats #7062