librarian::shelf( dplyr, glue, here, tidyr ) # === read data from source files (can take a long time) source(here("R/getData.R")) df …