If you want to use tidyverse
instead, you could use the map
function to simplify:
my_path <- c("/path/to/files/") # set your path
source_files <- list.files(my_path, "*.R$") # locate all .R files
map(paste0(my_path, source_files), source) # source all your R scripts!