Convert from %>% to |>

rmarkdown/dashboard.Rmd

@@ -34,9 +34,9 @@ ggplot(diamonds, aes(color)) + geom_bar()
 ### The largest diamonds
 
 ```{r}
-diamonds %>% 
-  arrange(desc(carat)) %>% 
-  head(100) %>% 
-  select(carat, cut, color, price) %>% 
+diamonds |> 
+  arrange(desc(carat)) |> 
+  head(100) |> 
+  select(carat, cut, color, price) |> 
   DT::datatable()
 ```

rmarkdown/diamond-sizes.Rmd

@@ -8,7 +8,7 @@ output: html_document
 library(ggplot2)
 library(dplyr)
 
-smaller <- diamonds %>% 
+smaller <- diamonds |> 
   filter(carat <= 2.5)
 ```
 
@@ -18,7 +18,7 @@ We have data about `r nrow(diamonds)` diamonds. Only
 below:
 
 ```{r, echo = FALSE}
-smaller %>% 
+smaller |> 
   ggplot(aes(carat)) + 
   geom_freqpoly(binwidth = 0.01)
 ```

rmarkdown/fuel-economy.Rmd

@@ -8,7 +8,7 @@ params:
 library(ggplot2)
 library(dplyr)
 
-class <- mpg %>% filter(class == params$my_class)
+class <- mpg |> filter(class == params$my_class)
 ```
 
 # Fuel economy for `r params$my_class`s