aetiologicCanada

library(tidyverse)
library(fs)
# Let us  make some fake data

fs::dir_create("data")
makesomefiles <- tibble(
  path= paste0("data/", LETTERS, ".dummytxt")
)
makesomefiles

aetiologicCanada

library(fst)
library(fs)

# name a list of files
# 
initial_list_of_files <- fs::dir_info("~") %>% select(path, size)
class(initial_list_of_files)
head(initial_list_of_files)

# now store that