R/utils.R

Defines functions download_inputs

download_inputs <- function(day) {
  url <- glue::glue("https://adventofcode.com/2021/day/{day}/input")
  output <- here::here(glue::glue("inst/input/{day}.txt"))
  lines <- vroom::vroom(url)

  lines
  # vroom::vroom_write_lines(lines, output)
}
TylerGrantSmith/adventofcode2021 documentation built on Dec. 18, 2021, 5:14 p.m.