Fork in the road

class: inverse, center, middle

# .big[.teal[FORKS]] 
# .bigger[in the road]

blockquote {font-size: 1.8rem !important; line-height: 1.2 !important;}

.bump-up {margin-top: -30px}

</style>

---
class: inverse, middle, center

# .bigger[.blue[if_else( )]]

---
class: inverse
exclude: true

# How to survive

<br>

<code>
## if_else(.teal[scary], .teal["TURN   BACK   NOW!"],
##                                 .gray["KEEP  GOING."]) 
</code>

---
class:

---
class: 
exclude: true

---
class: 
exclude: true

</div>

---
class: inverse

# How to survive

---
class: 
exclude: true

# How to survive

.small[.darkgray[.bottom-right[

**NOTE:** Also listen to the worm if you are in a Labyrinth.
]]]

---

# Monster bakers

---
class: center, middle

---
class: center, middle

---
class: center, middle

---

---
class: center, middle

---
class: center, middle

---

---

---
class: inverse, middle, center

# .bigger[.blue[case_when( )]]

---

# What to wear?

```r
case_when(
                  run_from_monsters  ~  "Sneakers"
                 )
```

---

# What to wear?

```r
case_when(
                  run_from_monsters  ~  "Sneakers",
                  swim_from_monsters  ~  "Flippers"
                 )
```

---

# What to wear?

```r
case_when(
                  run_from_monsters  ~  "Sneakers",
                  swim_from_monsters  ~  "Flippers",
                  TRUE  ~  "Slippers"
                 )
```

---

# What to wear?

```r
footwear = case_when(
                                     run_from_monsters  ~  "Sneakers",
                                     swim_from_monsters  ~  "Flippers",
                                     TRUE  ~  "Slippers"
                                    )
```

</div>

---
class: center, middle

---
class: center, middle

---
class: center, middle
exclude: true

---
class: center, middle

---
class: center, middle

---
class: center, middle

---
class: center, middle

---

---
class: inverse, middle, center
exclude: true

# .bigger[.big[.teal[%>%]]]
# .bigger[the pipe]

---
class: inverse, center, middle

# .bigger[the pipe]

---
class: center, middle, inverse

# .bigger[.big[.teal[%>%]]]

<br>

# .bigger["and then..."]

---

# Patty cake

```r
patty_cake %>% 
```

---

# Patty cake

```r
patty_cake %>% 
* roll_it() %>% 
```

---

# Patty cake

```r
patty_cake %>% 
  roll_it() %>% 
* prick_it() %>% 
```

---

# Patty cake

```r
patty_cake %>% 
  roll_it() %>% 
  prick_it() %>% 
* mark_it(letter = "B")
```

.bigger[
**Read as:**
]

.bump-up[

> Take a **patty cake** (and then)   
>     roll it (and then)   
>     prick it (and then)   
>     mark it - with the letter "B".

]

---
exclude: true

# There is a puppy

```r
puppy %>% runs_outside %>% rolls_in_mud %>% barks_joyfully(times = 3)
```

### Can be read as

> There is a **puppy**,  
> And then it runs outside,  
> And then it rolls in the mud,  
> And then it barks joyfully - 3 times.

---
class: middle, center, inverse

# .bigger[.big[.teal[%>%]]]
# your toolbox

---

**Without the pipe**
.bump-up[

```r
monsters <- filter(monsters, color == "pink")
```
]

---

**Without the pipe**
.bump-up[

```r
monsters <- filter(monsters, color == "pink")

monsters <- select(monsters, -hat)
```
]

---

**Without the pipe**
.bump-up[

```r
monsters <- filter(monsters, color == "pink")

monsters <- select(monsters, -hat)

monsters <- mutate(monsters, is_baby = age < 3)
```
]

**With the pipe**
.bump-up[

```r
monsters <- monsters %>%
*                     filter(., color == "pink") 
```
]

---

**Without the pipe**
.bump-up[

```r
monsters <- filter(monsters, color == "pink")

monsters <- select(monsters, -hat)

monsters <- mutate(monsters, is_baby = age < 3)
```
]

**With the pipe**
.bump-up[

```r
monsters <- monsters %>%
*                     filter(color == "pink") 
```
]
---

**Without the pipe**
.bump-up[

```r
monsters <- filter(monsters, color == "pink")

monsters <- select(monsters, -hat)

monsters <- mutate(monsters, is_baby = age < 3)
```
]

**With the pipe**
.bump-up[

```r
monsters <- monsters %>%
                      filter(color == "pink") %>%
*                     select(-hat)
```
]

---

**Without the pipe**
.bump-up[

```r
monsters <- filter(monsters, color == "pink")

monsters <- select(monsters, -hat)

monsters <- mutate(monsters, is_baby = age < 3)
```
]

**With the pipe**
.bump-up[

```r
monsters <- monsters %>%
                      filter(color == "pink") %>%
                      select(-hat) %>%
*                     mutate(is_baby = age < 3)
```
]

---
exclude: true

```r
# Without the pipe
round(log(sum(c(10, 20, 30, 50))))

# With the pipe 
result <- c(10, 20, 30, 50) %>%
            sum() %>%
            log() %>%
            round()
```

---
class: inverse, center, middle

# <i class="fas fa-carrot" aria-hidden="true"></i> [Back to Videos](https://tidy-mn.github.io/R-camp-penguins/page/videos.html)