knitr::opts_chunk$set(echo = TRUE)

# Benchmark code chunks
knitr::knit_hooks$set(
  time = function(before, envir) {
    t <- proc.time()['elapsed']
    if(before) {
      envir$.elapsed <- t
    } else {
      paste(signif(t - envir$.elapsed), 'sec.')
    }
  }
)
library(dplyr)
library(here)
library(tidyr)

Day 12: Rain Risk

Part 1

```{R day12-1, code=readLines("2020/R/12-1.R"), time = TRUE}

### Part 2

```{R day12-2, code=readLines("2020/R/12-2.R"), time = TRUE}


soniamitchell/adventofcode documentation built on Jan. 8, 2022, 9:33 a.m.