Dans le yaml
format: 
  html: 
    code-tools: true
    code-fold:  true
    code-link:  true
Code
1+1
[1] 2

Code annotation

```{r}
data("mtcars")
x <- mtcars$wt
y <- mtcars$mpg
plot(x, y)
```
Code
data("mtcars")
x <- mtcars$wt
y <- mtcars$mpg
plot(x, y)
1
J’ouvre la base mtcars.
2
Je récupère les variables wt (x) et mpg (y).
3
J’exécute un scatter plot.