.First <- function() {
r_files <- list.files("R", pattern = "\\.R$", full.names = TRUE)
# Source each file
for (file in r_files) {
source(file)
}
cat("All scripts in", "R", "have been executed.\n")
}
.First <- function() {
r_files <- list.files("R", pattern = "\\.R$", full.names = TRUE)
# Source each file
for (file in r_files) {
source(file)
}
cat("All scripts in", "R", "have been executed.\n")
}