Présentation Quarto | masquer les options de fragment en utilisant echo: clôturée

Question

Je voudrais utiliser echo: fenced comme ceci :

---
title: "Problème clôturé"
format: revealjs
---

## Affichage du code de clôture

```{r}
#| echo: fenced
#| output-location: column
#| label: fenced-example
#| fig-cap: Exemple de tracé
#| fig-subcap:
#|   - "Tracé de barres groupées"
#| warning: false
library(echarts4r)
df <- data.frame(
  x = LETTERS[1:10],
  a = runif(10),
  b = runif(10),
  c = runif(10)
)

df |> 
  e_charts(x) |> 
  e_bar(a, stack = "grp") |> 
  e_bar(b, stack = "grp") |> 
  e_bar(c, stack = "grp2")
```

mais je voudrais cacher les autres options du chunk (#| output-location: column,...) de sorte que seul le code soit affiché dans la "clôture". Des suggestions ?

Answer 1

À ma connaissance, il n'y a pas d'options simples pour faire cela, mais nous pouvons contourner le problème en utilisant du javascript.

---
title: "Fenced Problem"
format:
  revealjs:
    include-after-body: custom-fenced.html
---

## Affichage de l'extrait de code clôturé

```{r}
#| echo: true
#| output-location: column
#| label: fenced-example
#| fig-cap: Exemple de plot
#| fig-subcap:
#|   - "Diagramme à barres groupé"
#| warning: false

library(echarts4r)
df <- data.frame(
  x = LETTERS[1:10],
  a = runif(10),
  b = runif(10),
  c = runif(10)
)

df |> 
  e_charts(x) |> 
  e_bar(a, stack = "grp") |> 
  e_bar(b, stack = "grp") |> 
  e_bar(c, stack = "grp2")
```

## Plus d'exemples

```{r}
#| label: simple-one
#| echo: true

x = "bonjour quarto"
print("C'est un extrait de code clôturé sans options")
```

custom-fenced.html

  function fenced() {
    let source_codes = document.querySelectorAll("pre .sourceCode");
    source_codes.forEach(function(source_code) {
      let spn1 = document.createElement("span");
      let a1 = document.createElement("a");
      spn1.innerText = "```{r}";
      spn1.style.display = "block"
      source_code.prepend(spn1)
      source_code.firstChild.prepend(a1)

      let spn2 = document.createElement("span");
      let a2 = document.createElement("a");
      spn2.innerText = "```";
      spn2.style.display = "block";
      source_code.append(spn2);
      source_code.lastChild.prepend(a2);
    });
  };

  window.onload = fenced();

---

---

Notez que, ici l'option du chunk echo: true est utilisée, au lieu de echo: fenced