This runs things

We really don't know anything about life, the universe, and everything, do we?

But this does my stuff for me because laziness is pretty much the next best thing to knowing the answer to the question.

It goes and gets data from a few websites and turns them into nice csvs

How you might ask?

Magic of course. Github Actions!

Why you might ask?

Weekly data for my work here

Do it yourself

Scripts are here.

Actions are here.

Then bulk load:

library(tidyverse)
library(data.table)

### add filename with a mutate (or add your own!)
read_plus <- function(flnm) {
    read_csv(flnm) %>% 
        mutate(filename = flnm)
}

datafolder <-  paste0(here(),'/data') ###set your directory here
raw_data <-  
    list.files(path = datafolder,
      pattern = "*.csv",
      full.names = T) %>% 
    map_df(~read_plus(.))
    
   
### data bigger than mine? use fread instead, I promise you it's fast
read_plus <- function(flnm) {
    fread(flnm) %>% 
        mutate(filename = flnm)
}

datafolder <-  paste0(here(),'/data') ###set your directory here
raw_data <- 
    rbindlist(parallel::mclapply(mc.cores = 1,     ###update your cores
        list.files(path = datafolder, pattern = "*.csv"), 
        read_plus))