Blank

Add nothing to end of 4x backticks

````
````

Which returns code formatted like the below:

```{r}
# load library
library(dplyr)
# Execute code
mtcars %>% 
  group_by(cyl) %>% 
  summarize(n = n(), mean = mean(mpg)) %>% 
  mutate(cyl_name = paste(cyl, "Cylinders"))
```

r

Add the letter r to end of 4x backticks

````r
````

Which returns code formatted like the below:

```{r}
# load library
library(dplyr)
# Execute code
mtcars %>% 
  group_by(cyl) %>% 
  summarize(n = n(), mean = mean(mpg)) %>% 
  mutate(cyl_name = paste(cyl, "Cylinders"))
```

fortran

Add fortran to the end of the 4x backticks

````fortran
````

Which returns code formatted like the below:

```{r}
# load library
library(dplyr)
# Execute code
mtcars %>% 
  group_by(cyl) %>% 
  summarize(n = n(), mean = mean(mpg)) %>% 
  mutate(cyl_name = paste(cyl, "Cylinders"))
```

markdown

Add markdown or md to the end of the 4x backticks

````markdown
````

Which returns code formatted like the below:

```{r}
# load library
library(dplyr)
# Execute code
mtcars %>% 
  group_by(cyl) %>% 
  summarize(n = n(), mean = mean(mpg)) %>% 
  mutate(cyl_name = paste(cyl, "Cylinders"))
```

c

Add the letter c to the end of the 4x backticks

````c
````

Which returns code formatted like the below:

```{r}
# load library
library(dplyr)
# Execute code
mtcars %>% 
  group_by(cyl) %>% 
  summarize(n = n(), mean = mean(mpg)) %>% 
  mutate(cyl_name = paste(cyl, "Cylinders"))
```

haskell

Add haskell to the end of the 4x backticks

````haskell
````

Which returns code formatted like the below:

```{r}
# load library
library(dplyr)
# Execute code
mtcars %>% 
  group_by(cyl) %>% 
  summarize(n = n(), mean = mean(mpg)) %>% 
  mutate(cyl_name = paste(cyl, "Cylinders"))
```

python

Add python to the end of the 4x backticks

````python
````

Which returns code formatted like the below:

```{python}
# load library and data
import pandas as pd
import statsmodels.api as sm
mtcars = sm.datasets.get_rdataset("mtcars", "datasets", cache=True).data
# Execute code
(mtcars
  .groupby(['cyl'])
  .agg(['count', 'mean']))
```