[knitr] `asis_output()` has not the same effect as `output: asis`

[cderv]

---
title: "Test"
format: 
  typst:
    keep-typ: true
    keep-md: true
---

```{r}
knitr::asis_output("`#set page(flipped: true)`{=typst}")
```

This will lead to the intermediate markdown

---
title: "Test"
format: 
  typst:
    keep-typ: true
    keep-md: true
---


::: {.cell}

```{.r .cell-code}
knitr::asis_output("`#set page(flipped: true)`{=typst}")
```

::: {.cell-output-display}
`#set page(flipped: true)`{=typst}
:::
:::

No output div are removed - nor :::{.cell} or the .cell-output-display one.

Using #| output: asis does removed it.

I do think this is a knitr* issue because options$results = "asis" is only set for LaTeX output.

This is related to #9184 as even if this is fixed in knitr, #9184 will remain.

[cderv]

I do think this is a knitr* issue because options$results = "asis" is only set for LaTeX output.

This is supposed to be fixed in knitr as now output hooks can check for options$results == "asis" and process accordingly. However we do wrap asis content after output hook

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

Lines 144 to 162 in 238afdb

	} else if (inherits(x, "knit_asis")) {
	# delegate
	is_html_widget <- inherits(x, "knit_asis_htmlwidget")
	# knit_asis method checks on missing options which
	# it gets in knitr because UseMethod() is called in generic
	# but here we pass our default empty list options
	x <- if (missing(options)) {
	knitr:::sew.knit_asis(x, ...)
	} else {
	knitr:::sew.knit_asis(x, options, ...)
	}
	# if it's an html widget then it was already wrapped
	# by add_html_caption
	if (is_html_widget) {
	x
	} else {
	wrap_asis_output(options, x)
	}

Looking back at this, I see we have this comment

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

Lines 82 to 84 in 238afdb

	# override wrapping behavior for knitr_asis output (including htmlwidgets)
	# to provide for enclosing output div and support for figure captions
	wrap_asis_output <- function(options, x) {

So it seems we do wrap on purpose result for knit_asis output (created by output: asis).

We may need a new way in knitr to create raw markdown content, because this is a problem that it is not respect. It makes creating raw block with R function requiring #| output: asis cell option

---
title: "Test"
format: 
  typst:
    keep-typ: true
    keep-md: true
---

```{r}
#| echo: false
knitr::raw_block("#set page(flipped: true)", type = "typst")
```

---
title: "Test"
format: 
  typst:
    keep-typ: true
    keep-md: true
---


::: {.cell}
::: {.cell-output-display}


```{=typst}
#set page(flipped: true)
```


:::
:::

So there is now way to remove the output cell div currently with knitr. I think there should be one, like https://quarto.org/docs/computations/execution-options.html#raw-output

For the Jupyter engine, you can also create raw markdown output using the functions in IPython.display.

```{python}
#| echo: false
radius = 10
from IPython.display import Markdown
Markdown(f"The _radius_ of the circle is **{radius}**.")
```