library(adventofcode18)
x <- readLines("./inst/input03.txt")
p1 <- count_overlapping_fabric_claims(x)
p2 <- find_unique_fabric_claim(x)
stopifnot(p1 == aoc18_solutions$day03a)
stopifnot(p2 == aoc18_solutions$day03b)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.