aoc_04.R

library(tidyverse)

read_lines(here::here("input_data/data04a.txt")) %>% 
  str_match("\\[(\\d+)-(\\d+-\\d+) (\\d+):(\\d+)\\] (.*$)") %>% 
  as_tibble() %>% 
  set_names(c("raw_data", "year", "date", "hour", "min", "comment")) %>% 
  mutate(id = str_extract_all(comment, "(\\d+)", simplify = T) %>% 
           ifelse(. == "", NA, .)) %>% 
  arrange(year, date, hour, min) %>% 
  fill(id) %>% 
  View()