Sugar Cookie Recipe

class: inverse, middle
background-image: url(https://images.unsplash.com/photo-1592173376801-185310a68dea?ixlib=rb-1.2.1&ixid=MnwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHx8&auto=format&fit=crop&w=1286&q=80)
background-size: cover

# Sugar Cookies

###Gina Reynolds
based on
https://sallysbakingaddiction.com/best-sugar-cookies/

<br>
<br>
<br>

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

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

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

</style>

---

count: false

```r
*library(tidyverse)
```

---
count: false

```r
library(tidyverse)

*"2.25 cups all-purpose flour (spoon & leveled)"
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
* add(".5 teaspoon baking powder")
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
* add(".25 teaspoon salt")
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
* whisk()
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
*dry_ingredients
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

*"1.5 sticks unsalted butter"
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
* softened_to_room_temperature()
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
* add(".75 cup granulated sugar")
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
* beat(speed = 'high', time = '2min')
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
  beat(speed = 'high', time = '2min') %>%
* add("1 large egg at room temperature")
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
  beat(speed = 'high', time = '2min') %>%
  add("1 large egg at room temperature") %>%
* add("2 teaspoons pure vanilla extract")
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
  beat(speed = 'high', time = '2min') %>%
  add("1 large egg at room temperature") %>%
  add("2 teaspoons pure vanilla extract") %>%
* add("1/4 or 1/2 teaspoon almond extract")
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
  beat(speed = 'high', time = '2min') %>%
  add("1 large egg at room temperature") %>%
  add("2 teaspoons pure vanilla extract") %>%
  add("1/4 or 1/2 teaspoon almond extract") %>%
* beat(speed = 'high', time = '1min')
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
  beat(speed = 'high', time = '2min') %>%
  add("1 large egg at room temperature") %>%
  add("2 teaspoons pure vanilla extract") %>%
  add("1/4 or 1/2 teaspoon almond extract") %>%
  beat(speed = 'high', time = '1min') %>%
* scrape()
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
  beat(speed = 'high', time = '2min') %>%
  add("1 large egg at room temperature") %>%
  add("2 teaspoons pure vanilla extract") %>%
  add("1/4 or 1/2 teaspoon almond extract") %>%
  beat(speed = 'high', time = '1min') %>%
  scrape() %>%
* beat()
```

---
count: false

```r
library(tidyverse)

"2.25 cups all-purpose flour (spoon & leveled)" %>%
  add(".5 teaspoon baking powder") %>%
  add(".25 teaspoon salt") %>%
  whisk() ->
dry_ingredients

"1.5 sticks unsalted butter" %>%
  softened_to_room_temperature() %>%
  add(".75 cup granulated sugar") %>%
  beat(speed = 'high', time = '2min') %>%
  add("1 large egg at room temperature") %>%
  add("2 teaspoons pure vanilla extract") %>%
  add("1/4 or 1/2 teaspoon almond extract") %>%
  beat(speed = 'high', time = '1min') %>%
  scrape() %>%
  beat() ->
*wet_ingredients
```

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

---

count: false

```r
*wet_ingredients
```

---
count: false

```r
wet_ingredients %>%
* add(dry_ingredients)
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
* mix(speed = "low")
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
* add_if(condition = "too sticky",
*        add = "1 more Tablespoon of flour")
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
*dough
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
dough

*dough
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
dough

dough %>%
* divide(num_parts = 2)
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
dough

dough %>%
  divide(num_parts = 2) %>%
* place(where = '2 parchment paper lightly floured')
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
dough

dough %>%
  divide(num_parts = 2) %>%
  place(where = '2 parchment paper lightly floured') %>%
* roll_out(with = "rolling pin lightly floured",
*          thickness = ".25 inch")
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
dough

dough %>%
  divide(num_parts = 2) %>%
  place(where = '2 parchment paper lightly floured') %>%
  roll_out(with = "rolling pin lightly floured",
           thickness = ".25 inch") %>%
* stack()
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
dough

dough %>%
  divide(num_parts = 2) %>%
  place(where = '2 parchment paper lightly floured') %>%
  roll_out(with = "rolling pin lightly floured",
           thickness = ".25 inch") %>%
  stack() %>%
* refrigerate(min = "1 hour",
*              max = "2 days")
```

---
count: false

```r
wet_ingredients %>%
  add(dry_ingredients) %>%
  mix(speed = "low") %>%
  add_if(condition = "too sticky",
         add = "1 more Tablespoon of flour") ->
dough

dough %>%
  divide(num_parts = 2) %>%
  place(where = '2 parchment paper lightly floured') %>%
  roll_out(with = "rolling pin lightly floured",
           thickness = ".25 inch") %>%
  stack() %>%
  refrigerate(min = "1 hour",
               max = "2 days") ->
*dough_rolled_chilled
```

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

---

count: false

```r
*"baking sheets"
```

---
count: false

```r
"baking sheets" %>%
* line_with("parchment paper")
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
*prepped_baking_sheets
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

*dough_rolled_chilled
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

dough_rolled_chilled %>%
* cut(with = "cookie cutters")
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

dough_rolled_chilled %>%
  cut(with = "cookie cutters") %>%
* arrange(where = prepped_baking_sheets)
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

dough_rolled_chilled %>%
  cut(with = "cookie cutters") %>%
  arrange(where = prepped_baking_sheets) %>%
* bake(where = "oven",
*      temp = "350 F",
*      length = "11 to 12 minutes or until lightly browned around the edges")
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

dough_rolled_chilled %>%
  cut(with = "cookie cutters") %>%
  arrange(where = prepped_baking_sheets) %>%
  bake(where = "oven",
       temp = "350 F",
       length = "11 to 12 minutes or until lightly browned around the edges") %>%
* cool(where = "bake sheet",
*      length = "5 minutes")
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

dough_rolled_chilled %>%
  cut(with = "cookie cutters") %>%
  arrange(where = prepped_baking_sheets) %>%
  bake(where = "oven",
       temp = "350 F",
       length = "11 to 12 minutes or until lightly browned around the edges") %>%
  cool(where = "bake sheet",
       length = "5 minutes") %>%
* cool(where = "wire rack",
*      length = "until room temp")
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

dough_rolled_chilled %>%
  cut(with = "cookie cutters") %>%
  arrange(where = prepped_baking_sheets) %>%
  bake(where = "oven",
       temp = "350 F",
       length = "11 to 12 minutes or until lightly browned around the edges") %>%
  cool(where = "bake sheet",
       length = "5 minutes") %>%
  cool(where = "wire rack",
       length = "until room temp") %>%
* decorate()
```

---
count: false

```r
"baking sheets" %>%
  line_with("parchment paper") ->
prepped_baking_sheets

dough_rolled_chilled %>%
  cut(with = "cookie cutters") %>%
  arrange(where = prepped_baking_sheets) %>%
  bake(where = "oven",
       temp = "350 F",
       length = "11 to 12 minutes or until lightly browned around the edges") %>%
  cool(where = "bake sheet",
       length = "5 minutes") %>%
  cool(where = "wire rack",
       length = "until room temp") %>%
  decorate() ->
*valentines_day_cookies
```

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