Exploded code

class: center, middle, inverse, title-slide

# Exploded code
## Using flipbookr and xaringan
### Me

---

<style type="text/css">
.remark-code{line-height: 1.5; font-size: 70%}

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}

code.r.hljs.remark-code:hover{
  overflow-x:visible;
  width: 500px;
  border-style: solid;
}
</style>

---

count: false

.panel1-first-auto[

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

]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
*library(ggplot2)
```
]
 
.panel2-first-auto[

]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
*library(tidyverse)
```
]
 
.panel2-first-auto[

]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

*major = c("C", "G", "D", "A", "E", "B",
*           "Gb","Db", "Ab", "Eb", "Bb", "F")
```
]
 
.panel2-first-auto[

]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
*minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
*           "Bbm", "Fm", "Cm", "Gm", "Dm")
```
]
 
.panel2-first-auto[

]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
*spot = 1:12
```
]
 
.panel2-first-auto[

]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

*ggcanvas()
```
]
 
.panel2-first-auto[
![](circle_of_fifths_flipbook_files/figure-html/first_auto_07_output-1.png)
]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

ggcanvas() +
* stamp_polygon(n_vertices = 12)
```
]
 
.panel2-first-auto[
![](circle_of_fifths_flipbook_files/figure-html/first_auto_08_output-1.png)
]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

ggcanvas() +
  stamp_polygon(n_vertices = 12) +
* stamp_circle(radius = 1.4)
```
]
 
.panel2-first-auto[
![](circle_of_fifths_flipbook_files/figure-html/first_auto_09_output-1.png)
]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

ggcanvas() +
  stamp_polygon(n_vertices = 12) +
  stamp_circle(radius = 1.4) +
* stamp_text(xy = pos_polygon(n = 12,
*            radius = 1.1),
*            label = major,
*            size = 6)
```
]
 
.panel2-first-auto[
![](circle_of_fifths_flipbook_files/figure-html/first_auto_10_output-1.png)
]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

ggcanvas() +
  stamp_polygon(n_vertices = 12) +
  stamp_circle(radius = 1.4) +
  stamp_text(xy = pos_polygon(n = 12,
             radius = 1.1),
             label = major,
             size = 6) +
* stamp_circle(radius = .8)
```
]
 
.panel2-first-auto[
![](circle_of_fifths_flipbook_files/figure-html/first_auto_11_output-1.png)
]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

ggcanvas() +
  stamp_polygon(n_vertices = 12) +
  stamp_circle(radius = 1.4) +
  stamp_text(xy = pos_polygon(n = 12,
             radius = 1.1),
             label = major,
             size = 6) +
  stamp_circle(radius = .8) +
* stamp_text(xy = pos_polygon(n = 12, radius = .5),
*            label = minor,
*            size = 5)
```
]
 
.panel2-first-auto[
![](circle_of_fifths_flipbook_files/figure-html/first_auto_12_output-1.png)
]

---
count: false

.panel1-first-auto[

```r
library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B",
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

ggcanvas() +
  stamp_polygon(n_vertices = 12) +
  stamp_circle(radius = 1.4) +
  stamp_text(xy = pos_polygon(n = 12,
             radius = 1.1),
             label = major,
             size = 6) +
  stamp_circle(radius = .8) +
  stamp_text(xy = pos_polygon(n = 12, radius = .5),
             label = minor,
             size = 5) +
* stamp_spoke(radius = 1.4,
*             angle = pi*1:12/6 +
*               1/12*pi)
```
]
 
.panel2-first-auto[
![](circle_of_fifths_flipbook_files/figure-html/first_auto_13_output-1.png)
]

<style>
.panel1-first-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-first-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-first-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
</style>

---

count: false

.panel1-another-auto[

```r
*ggcanvas()
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_01_output-1.png)
]

---
count: false

.panel1-another-auto[

```r
ggcanvas() +
* stamp_tile(x = 1:12)
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_02_output-1.png)
]

---
count: false

.panel1-another-auto[

```r
ggcanvas() +
  stamp_tile(x = 1:12) +
* stamp_text(x = 1:12,
*            label = major)
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_03_output-1.png)
]

---
count: false

.panel1-another-auto[

```r
ggcanvas() +
  stamp_tile(x = 1:12) +
  stamp_text(x = 1:12,
             label = major) +
* stamp_tile(x = 1:12, y = -1)
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_04_output-1.png)
]

---
count: false

.panel1-another-auto[

```r
ggcanvas() +
  stamp_tile(x = 1:12) +
  stamp_text(x = 1:12,
             label = major) +
  stamp_tile(x = 1:12, y = -1) +
* stamp_text(x = 1:12, y = -.8,
*            label = minor,
*            size = 4)
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_05_output-1.png)
]

---
count: false

.panel1-another-auto[

```r
ggcanvas() +
  stamp_tile(x = 1:12) +
  stamp_text(x = 1:12,
             label = major) +
  stamp_tile(x = 1:12, y = -1) +
  stamp_text(x = 1:12, y = -.8,
             label = minor,
             size = 4) +
* coord_polar(start = -.25)
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_06_output-1.png)
]

---
count: false

.panel1-another-auto[

```r
ggcanvas() +
  stamp_tile(x = 1:12) +
  stamp_text(x = 1:12,
             label = major) +
  stamp_tile(x = 1:12, y = -1) +
  stamp_text(x = 1:12, y = -.8,
             label = minor,
             size = 4) +
  coord_polar(start = -.25) +
* theme_void_fill()
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_07_output-1.png)
]

---
count: false

.panel1-another-auto[

```r
ggcanvas() +
  stamp_tile(x = 1:12) +
  stamp_text(x = 1:12,
             label = major) +
  stamp_tile(x = 1:12, y = -1) +
  stamp_text(x = 1:12, y = -.8,
             label = minor,
             size = 4) +
  coord_polar(start = -.25) +
  theme_void_fill() +
* stamp_tile(x = 1, alpha = .25,
*            fill = "red")
```
]
 
.panel2-another-auto[
![](circle_of_fifths_flipbook_files/figure-html/another_auto_08_output-1.png)
]

<style>
.panel1-another-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-another-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-another-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
</style>