R/helpers.R

In mpaulacaldas/aoc2021: What the Package Does (One Line, Title Case)

aoc_edit <- function() {
  day <- format(Sys.Date(), "%d")
  fs  <- sprintf(c("day%s.R", "data-raw/day%s.txt"), day)
  file.edit(fs)
}

aoc_fetch <- function(year = 2021) {
  # https://colin-fraser.net/post/a-quick-tutorial-on-importing-data-from-advent-of-code-into-r/
  day <- format(Sys.Date(), "%d")
  url <- sprintf("https://adventofcode.com/%s/day/%s/input", year, day)

  session_cookie <- readLines(".aoccookie")
  cookie <- httr::set_cookies(session = session_cookie)

  res <- httr::GET(url, cookie)
  txt <- httr::content(res, as = "text", encoding = "UTF-8")

  dr  <- sprintf("data-raw/day%s.txt", day)
  writeChar(txt, dr)
}