message('Sourcing files in the R/ folder...\n')
invisible(sapply(list.files('R', pattern = '*.R', full.names = TRUE), source))
message('...Loaded.')
