Don’t repeat yourself, talk to yourself! Repeated reporting in the R universe

# Don't repeat yourself, talk to yourself! Repeated reporting in the R universe

.pull-left[
<img src="images/businessman/nurse-1.jpg" width="60%" style="display: block; margin: auto;" />

### bit.ly/sharstudioconf
]

.pull-right[
<img src="images/businessman/calendar.jpg" width="60%" style="display: block; margin: auto;" />

### @SharlaGelfand
]

---
background-image: url("images/process/old-process-4.png")

---
background-image: url("images/process/old-process-5.png")

---
background-image: url("images/process/old-process-8.png")

---
class: center

# The reports took all year!

.pull-left[
<img src="images/businessman/hourglass.jpg" width="90%" style="display: block; margin: auto;" />
]

They weren't reproducible

They were scattered,

hard to keep track of, boring, manual, repetitive

not easily repeatable
]

---
class: middle
background-image: url("images/logos/R.png")

---
background-image: url("images/process/new-process-1.png")

---
background-image: url("images/process/new-process-2.png")

---
background-image: url("images/process/new-process-3.png")

---
class: center, middle

Code all in one place!

It'll be worth it!

We can do new things!
]

.pull-right[
<img src="images/businessman/energy.jpg" width="90%" style="display: block; margin: auto;" />
]

---
layout: true

# Next year arrives

---

---
<img src="images/code/templates/clean-data-artisanal-highlight.jpg" width="90%" style="display: block; margin: auto;" />

---
layout: false
class: center

Not reproducible

Difficult to keep track of

Manual and repetitive

Not easily repeatable

Time consuming
]

Kind of reproducible

Difficult to keep track of

Manual and repetitive

Not easily repeatable

Time consuming
]

---
class: center, middle, inverse

# Don't repeat yourself

# Talk to yourself!

---
class: center
# Don't repeat yourself

### Abstract away repetitive logic and automate repetitive processes

.pull-left[
<img src="images/businessman/three-hand.jpg" width="75%" style="display: block; margin: auto;" />
]

Focus should be on what changes

Copying over and over and redoing work is pointless
]

---
class: center

# Talk to yourself

### It's easier to document why you're doing something now than to remember why you did it a year ago

.pull-left[
<img src="images/businessman/high-five.jpg" width="65%" style="display: block; margin: auto;" />
]

Easy-to-read code doesn't explain motivations
]

---
class: middle, center, inverse
# I cleaned up after myself

---
## Reorganize files

---
## Reorganize files

---
## Default ordering

---
## Setup file

---
layout: false
class: middle, center, inverse
# I made functions

---
class: middle

---
class: middle

---
class: center

---
class: center, middle

---
background-image: url(images/logos/usethis-small.png)
background-position: top right
background-size: 125px 145px
## Chatty functions

```r
library(usethis)
ui_info("hi!")
```

---
background-image: url(images/logos/usethis-small.png)
background-position: top right
background-size: 125px 145px
## Chatty functions

```r
analysis_year <- 2019

ui_todo("Querying demographics data for
        {analysis_year}...")
```

---
## Chatty functions

---

---
class: center

## Artisanal data doesn't require artisanal code

.pull-left[
<img src="images/artisan-data.png" width="90%" style="display: block; margin: auto;" />
]

Too specific!

No idea why I did something

]

---
class: center
layout: false
## Code templates

Super specific instructions

Deal with artisanal data instead of remembering what to do
]

.pull-right[
<img src="images/businessman/template.jpg" width="80%" style="display: block; margin: auto;" />
]

---
layout: true
## Prescriptive templates

---

---

---
layout: false
## Automating templates

```r
clean_data <- function(analysis_year) {
 usethis::use_template(
* template = "clean_data.R",
 save_as = "01_clean-data.R",
 data = list(analysis_year = analysis_year),
 package = "demographicsreport"
 )
}
```

---
layout: false
## Automating templates

```r
clean_data <- function(analysis_year) {
 usethis::use_template(
 template = "clean_data.R",
* save_as = "01_clean-data.R",
 data = list(analysis_year = analysis_year),
 package = "demographicsreport"
 )
}
```

---
layout: false
## Automating templates

```r
clean_data <- function(analysis_year) {
 usethis::use_template(
 template = "clean_data.R",
 save_as = "01_clean-data.R",
* data = list(analysis_year = analysis_year),
 package = "demographicsreport"
 )
}
```

---
layout: false
class: middle, center, inverse
# I put it all together in a package

---
class: center
## Why make a package?

.pull-left[
<img src="images/businessman/box.jpg" width="90%" style="display: block; margin: auto;" />
]

Home for templates

Better documentation

Share code with coworkers
]

---

---

---

---

---

---

---

Functions

Templates

Packages
]

Chatty functions

Prescriptive templates

Package documentation
]

---
class: center, middle

# Repeated reporting in the R universe

.pull-left[
<img src="images/businessman/party.jpg" width="90%" style="display: block; margin: auto;" />
]

Easy to keep track of ✅

Minimal manual work ✅

Easily repeatable ✅

Frees up time... to spend making R packages 💁
]

---
class: middle, center

## If you have a repetitive task, abstract or automate what you can and loudly communicate the rest!

# Don't repeat yourself, talk to yourself!

Tweets: @sharlagelfand
]

Images: Amonrat Rungreangfangsai
]