r4ds/quarto/fuel-economy.qmd

---
format: html
params:
  my_class: "suv"
---

```{r}
#| label: setup
#| include: false

library(tidyverse)

class <- mpg |> filter(class == params$my_class)
```

# Fuel economy for `r params$my_class`s

```{r}
#| message: false

ggplot(class, aes(x = displ, y = hwy)) + 
  geom_point() + 
  geom_smooth(se = FALSE)
```
R markdown proof editing 2016-08-26 05:44:14 +08:00			`---`
Fix yaml from rmarkdown -> quarto for format 2023-05-25 23:43:06 +08:00			`format: html`
R markdown proof editing 2016-08-26 05:44:14 +08:00			`params:`
			`my_class: "suv"`
			`---`

Communicate: Rmd -> Quarto (#1107) * Rename file: rmarkdown to quarto * Rmd -> quarto conversion * Fix typos, cross-refs, knitr opts_chunk * Fix titles + add status 2022-10-22 06:12:48 +08:00			```{r}
			`#\| label: setup`
			`#\| include: false`

			`library(tidyverse)`
R markdown proof editing 2016-08-26 05:44:14 +08:00
Convert from %>% to \|> 2022-02-24 03:15:52 +08:00			`class <- mpg \|> filter(class == params$my_class)`
R markdown proof editing 2016-08-26 05:44:14 +08:00			```

			# Fuel economy for `r params$my_class`s

Communicate: Rmd -> Quarto (#1107) * Rename file: rmarkdown to quarto * Rmd -> quarto conversion * Fix typos, cross-refs, knitr opts_chunk * Fix titles + add status 2022-10-22 06:12:48 +08:00			```{r}
			`#\| message: false`

Add x and y to aes(), addresses #1159 2022-12-05 16:12:12 +08:00			`ggplot(class, aes(x = displ, y = hwy)) +`
R markdown proof editing 2016-08-26 05:44:14 +08:00			`geom_point() +`
			`geom_smooth(se = FALSE)`
			```