#' #' day _i
#' #'
#' #' @export
#' day_i <- function() {
#' # dependencies
#' `%>%` <- magrittr::`%>%`
#'
#' # data
#' input <- scan("inst/extdata/day_i.txt", what = numeric(), sep = "\n", quiet = TRUE)
#' input <- readLines("inst/extdata/day_i.txt")
#'
#' list(part1 = part1, part2 = part2)
#' }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.