R/aoc_read.R

In tanho63/aoc.elf: Tan's Helper Functions for Advent of Code

#' Read to tibble
#'
#' Reads in input lines into a tibble and optionally tries type detection
#' @param convert logical: whether to run `readr::type_convert()` or not
#' @inheritParams aoc_get
#'
#' @export

aoc_read <- function(day, year = format(Sys.Date(),"%Y"), convert = TRUE){
  padded_day <- stringr::str_pad(day,2,'left',pad = '0')
  input <- readLines(here::here(glue::glue("{year}/day-{padded_day}-input.txt")))

  out <- tibble::tibble(x = input)
  if(convert) out <- readr::type_convert(out)
  return(out)
}