library(adventofcode17)
lines <- readLines("./inst/input09.txt")
score <- process_stream(lines)
stopifnot(score == aoc17_solutions$day09a)
garbage <- count_garbage(lines)
stopifnot(garbage == aoc17_solutions$day09b)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.