That little bit ✨ extra ✨

Using xaringan or rmarkdown

1. Presenter notes
2. Separate code chunks and their output

Using xaringanExtra

Popular Cultural References to Lemurs

1. Madagascar, the movie

Presenter Mode Tips

• The notes don't have to be just for you!

• If they are for you...

Presenting in video

1. Present from the private browser window without moon reader

2. Clone the slides into a new window with C

3. Pick the full browser or the cloned window to share

4. Press P in the other window

library(dplyr)
library(ggplot2)
lemurs <- readRDS("lemurs.rds")
lemurs %>%
  filter(
    common_name == "Ring-Tailed Lemur",
    between(age_at_wt_y, 1, 5)
  ) %>%
  ggplot() +
  aes(x = age_at_wt_y, y = weight) +
  geom_point() +
  labs(
    x = "Age at Weight",
    y = "Weight (g)",
    title = "Weight Gain of Young Ring-Tailed Lemurs"
  )

Two Little Things to Control Output

```{r lemur-weight}
# any R code ...
```

Two Little Things to Control Output

```{r lemur-weight, eval=FALSE}
# any R code ...
```

Two Little Things to Control Output

```{r lemur-weight, eval=FALSE}
# any R code ...
```
---
```{r ref.label="lemur-weight", echo=FALSE}
```

Two Little Things to Control Output

```{r lemur-weight}
# plotting R code ...
```

Two Little Things to Control Output

```{r lemur-weight}
# plotting R code ...
```
![](slide_files/figure-html/lemur-weight-1.png)

Two Little Things to Control Output

```{r lemur-weight, fig.show="hide"}
# plotting R code ...
```
![](`r knitr::fig_chunk("lemur-weight", "png")`)

Two Little Things to Control Output

```{r lemur-weight, fig.show="hide"}
# plotting R code ...
```
---
![](`r knitr::fig_chunk("lemur-weight", "png")`)

Two Little Things to Control Output

```{r lemur-weight, fig.show="hide"}
# plotting R code ...
```
---
background-image: url(`r knitr::fig_chunk("lemur-weight", "png")`)
background-size: cover

Two Little Things to Control Output

lemurs %>%
  filter(
    common_name == "Ring-Tailed Lemur",
    between(age_at_wt_y, 1, 5)
  ) %>%
  ggplot() +
  aes(x = age_at_wt_y, y = weight) +
  geom_point() +
  labs(
    x = "Age at Weight",
    y = "Weight (g)",
    title = "Weight Gain of Young Ring-Tailed Lemurs"
  )

How to use xaringanExtra?

library(remotes)
install_github("gadenbuie/xaringanExtra")

```{r xaringanExtra, echo=FALSE}
library(xaringanExtra)
use_xaringan_extra(
  c("tile_view", "panelset", "share_again", "editable")
)
use_scribble(
  pen_color = "#d33f49", 
  pen_size = 4,
  palette = c("#d33f49", "#466683", "#338d70", "#c0af3f", "#ff6300")
)
```

How to use panelsets

.panelset[
]

How to use panelsets

.panelset[
.panel[
]
]

How to use panelsets

.panelset[
.panel[
This content will show up in panel 1!
]
]

How to use panelsets

.panelset[
.panel[.panel-name[First panel]
This content will show up in panel 1!
]
]

How to use panelsets

.panelset[
.panel[.panel-name[First panel]
This content will show up in panel 1!
]
.panel[.panel-name[Second panel]
This content will show up in the **second panel**!
]
]

How to use panelsets

How to use panelsets

```{r lemur-weight}
lemurs %>%
  filter(
    common_name == "Ring-Tailed Lemur",
    between(age_at_wt_y, 1, 5)
  ) %>%
  ggplot() +
  aes(x = age_at_wt_y, y = weight) +
  geom_point() +
  labs(
    x = "Age at Weight",
    y = "Weight (g)",
    title = "Weight Gain of Young Ring-Tailed Lemurs"
  )
```

How to use panelsets

.panelset[
```{r lemur-weight}
lemurs %>%
  filter(
    common_name == "Ring-Tailed Lemur",
    between(age_at_wt_y, 1, 5)
  ) %>%
  ggplot() +
  aes(x = age_at_wt_y, y = weight) +
  geom_point() +
  labs(
    x = "Age at Weight",
    y = "Weight (g)",
    title = "Weight Gain of Young Ring-Tailed Lemurs"
  )
```
]

How to use panelsets

.panelset[
```{r lemur-weight, panelset = TRUE}
lemurs %>%
  filter(
    common_name == "Ring-Tailed Lemur",
    between(age_at_wt_y, 1, 5)
  ) %>%
  ggplot() +
  aes(x = age_at_wt_y, y = weight) +
  geom_point() +
  labs(
    x = "Age at Weight",
    y = "Weight (g)",
    title = "Weight Gain of Young Ring-Tailed Lemurs"
  )
```
]

How to use panelsets

lemurs %>%
  filter(
    common_name == "Ring-Tailed Lemur",
    between(age_at_wt_y, 1, 5)
  ) %>%
  ggplot() +
  aes(x = age_at_wt_y, y = weight) +
  geom_point() +
  labs(
    x = "Age at Weight",
    y = "Weight (g)",
    title = "Weight Gain of Young Ring-Tailed Lemurs"
  )