# Update knitr chunk options # https://yihui.name/knitr/options/#chunk-options knitr::opts_chunk$set( comment = NA, fig.align = "center", tidy = FALSE, fig.path = paste0("figure/", knitr::current_input(), "/") )
# Insert the date the file was last updated cat(sprintf("**Last updated:** %s", Sys.Date()))
# Insert the code version (Git commit SHA1) if Git repository exists and R # package git2r is installed if(requireNamespace("git2r", quietly = TRUE)) { if(git2r::in_repository()) { code_version <- substr(git2r::commits()[[1]]@sha, 1, 7) } else { code_version <- "Unavailable. Initialize Git repository to enable." } } else { code_version <- "Unavailable. Install git2r package to enable." } cat(sprintf("**Code version:** %s", code_version)) rm(code_version)
sessionInfo()
library(tidyverse) library(testthat) library(aocodeR)
input <- aoc_get_input(day, cookie_path = paste0(rprojroot::find_rstudio_root_file(), "/secrets/session_cookie.txt")) input
#expect_equal(,)
#expect_equal(,)
template based on the workflowr standalone template
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.