jarad

# From https://gist.github.com/jarad/8f3b79b33489828ab8244e82a4a0c5b3

library("dplyr")
library("tidyr")
library("readr")

read_my_csv = function(f, into) {
  readr::read_csv(f) %>%
    dplyr::mutate(file = f) %>%
    tidyr::separate(file, into)