What I did to get here

class: center, middle, inverse, title-slide

# What I did to get here
## my interactive session history for #tidytuesday
### me

---

```r
# This is the recommended set up for this {memory} package
# you might reset include = F for your book if you arent wanting to communicate about knitr settings

knitr::opts_chunk$set(fig.width = 6, message = FALSE, warning = FALSE,
                      comment = "", cache = F, error = T)
library(flipbookr)
library(tidyverse)
library(ggmemory)
```

---
  class: inverse, middle, center

# Reviewing code

## inline code is used to deliver each element of code sequence to a slide w/ associated output:

## `flipbookr::chunk_reveal(code_seq = my_executions)`

---

count: false

.panel1-98438-auto[

```r
library(tidyverse)
```
]
 
.panel2-98438-auto[

]

---
count: false

.panel1-98438-auto[

```r
library(stampr)
```
]
 
.panel2-98438-auto[

```
Error in library(stampr): there is no package called 'stampr'
```
]

---
count: false

.panel1-98438-auto[

```r
library(ggstamp)
```
]
 
.panel2-98438-auto[

]

---
count: false

.panel1-98438-auto[

```r
ggcanvas()
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_04_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(xy = pos_month("2021-10"))
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_05_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(xy = pos_month("2021-10"),
             height = .9)
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_06_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(xy = pos_month("2021-10"),
             height = .9,
             width = .9)
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_07_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burntorange"
  ) +
  ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burntorange"
  )
```
]
 
.panel2-98438-auto[

```
Error: Can't add `ggcanvas()` to a ggplot object.
```
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burntorange"
  )
```
]
 
.panel2-98438-auto[

```
Error: Unknown colour name: burntorange
```

![](memory_files/figure-html/98438_auto_09_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1"
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_10_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1"
  ) +
  stamp_label(xy = pos_month("2021-10"),
              label = 1:31)
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_11_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10"),
             label = 1:31)
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_12_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png(x0y0 = pos_month("2021-10")[30, ],
            png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png")
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_13_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png(x0y0 = pos_month("2021-10")[31, ],
            png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png")
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_14_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = NULL
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png(x0y0 = pos_month("2021-10")[31, ],
            png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png")
```
]
 
.panel2-98438-auto[

```
Error: Unequal parameter lengths: x (31), y (31), color (0)
```
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png(x0y0 = pos_month("2021-10")[31, ],
            png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png")
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_16_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png")
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_17_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  theme_void_fill(fill = "lavender")
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_18_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  theme_void_fill(fill = "lavender") +
  stamp_text_ljust(label = "It's October!",
                   fontface = "italic")
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_19_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  # theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's October!",
    fontface = "italic",
    size = 12,
    y = .75
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_20_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  # theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's October!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_21_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  # theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's October!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, ] - .45,
    y = pos_month("2021-10")[1:26, ] - .45,
    xend = pos_month("2021-10")[1:26, ] + .45,
    yend = pos_month("2021-10")[1:26, ] + .45
  )
```
]
 
.panel2-98438-auto[

```
Error in is.finite(x): default method not implemented for type 'list'
```

![](memory_files/figure-html/98438_auto_22_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  # theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's October!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_23_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  # theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's October!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] + .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] - .45
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_24_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  # theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's Almost Halloween!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] + .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] - .45
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_25_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_3847271.png") +
  theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's Almost Halloween!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] + .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] - .45
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_26_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_1237638.png") +
  theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's Almost Halloween!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] + .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] - .45
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_27_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(xy = pos_month("2021-10")[1:30, ],
             label = 1:30,
             color = "grey35") +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_1237638.png",
             color = "grey35") +
  theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's Almost Halloween!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45,
    color = "grey35"
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45,
    color = "grey35"
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] + .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] - .45,
    color = "grey35"
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_28_output-1.png)
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(
    xy = pos_month("2021-10")[1:30, ],
    label = 1:30,
    size = 10
    color = "grey35"
  ) +
  ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(
    xy = pos_month("2021-10")[1:30, ],
    label = 1:30,
    size = 10,
    color = "grey35"
  ) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_1237638.png",
             color = "grey35") +
  theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's Almost Halloween!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45,
    color = "grey35"
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45,
    color = "grey35"
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] + .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] - .45,
    color = "grey35"
  )
```
]
 
.panel2-98438-auto[

```
Error: <text>:13:5: unexpected symbol
12:     size = 10
13:     color
        ^
```
]

---
count: false

.panel1-98438-auto[

```r
ggcanvas() +
  stamp_tile(
    xy = pos_month("2021-10"),
    height = .9,
    width = .9,
    fill = "burlywood1",
    color = "burlywood1"
  ) +
  stamp_text(
    xy = pos_month("2021-10")[1:30, ],
    label = 1:30,
    size = 12,
    color = "grey35"
  ) +
  stamp_png2(x0y0 = pos_month("2021-10")[31, ],
             png = "2021-10-19-great-pumpkin/noun_pumpkin_1237638.png",
             color = "grey35") +
  theme_void_fill(fill = "lavender") +
  stamp_text_ljust(
    label = "It's Almost Halloween!",
    fontface = "italic",
    size = 12,
    y = .75,
    x = -.45,
    color = "grey35"
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] - .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] + .45,
    color = "grey35"
  ) +
  stamp_segment(
    x = pos_month("2021-10")[1:26, 1] - .45,
    y = pos_month("2021-10")[1:26, 2] + .45,
    xend = pos_month("2021-10")[1:26, 1] + .45,
    yend = pos_month("2021-10")[1:26, 2] - .45,
    color = "grey35"
  )
```
]
 
.panel2-98438-auto[
![](memory_files/figure-html/98438_auto_30_output-1.png)
]

---