PresentationSlides.Rmd

---
title: "Presentation title"
author: Author list
institute: Author institutions
output:
  xaringan::moon_reader:
    css: [default, metropolis, metropolis-fonts]
---

```{r setup, include=FALSE}
library(kableExtra)
library(magrittr) # For the %>% pipe operator
library(reticulate) # For Python
use_python("/usr/bin/python3", required=T)
knitr::opts_chunk$set(echo = FALSE)
```

# This is a slide title

* Content

---

# Slide with code

```{r, echo=TRUE}
x = 3
y = 2
print(x**y)
```

---

# Slide with code used to generate output

```{r, echo=F}
x = 4
y = 3
```

`r x` raised to the power of `r y` equals `r x**y`.

---

# Slide with Python code

```{python, echo=TRUE}
import numpy as np
x = np.arange(10)
print(x)
```

---

# Slide with an image

```{r model1, echo=F, out.width="50%", fig.align="center"}
knitr::include_graphics("Model.png")
```

---

# Incremental slides

* Bullet 1

--

* Bullet 2

---

# Text alignment

.left[Left]

.center[Center]

.right[Right]

---

# Two columns of equal size

.pull-left[
```{r model2, echo=F, out.width="100%", fig.align="center"}
knitr::include_graphics("Model.png")
```
]

.pull-right[
Comments:

* Text
]

---

# Incremental with side-bar

.left-column[
Yes]

.right-column[
A bunch of text
]

--

.left-column[
No]

.right-column[
A bunch more text
]

---

# Slide with R graphics

```{r rgraphics, fig.align="center", echo=F, out.width="50%"}
plot(seq(1:1:10), seq(1:1:10))
```

---

# Slide with Python graphics

```{python pygraphics, fig.align="center", echo=F, out.width="50%"}
import matplotlib.pyplot as plt
plt.plot(x, x)
```

---

# Slide with fancy tables

Use `knitr::kable` with `format="html"`.

```{r kabletable, echo=F}
dt <- mtcars[1:5, 1:6]
knitr::kable(dt, format="html") %>%
    kable_styling(position="center")
```