#let r = raw.with(lang: "r")

This can then be used like: #r("x <- c(10, 42)")

#set raw(tab-size: 8)
```tsv
Year	Month	Day
2000	2	3
2001	2	1
2002	3	10
```

#show raw: set text(ligatures: true, font: "Cascadia Code")

Then the code becomes `x <- a`