Small projects often use numbered scripts so data import, cleaning, modeling, and reporting run in a predictable order.

Program

Play the script to choose how many steps the project includes.

script_order.R
steps <- c("import", "clean", "model", "report")
step_count <- 
selected <- steps[seq_len(step_count)]
numbers <- sprintf("%02d", seq_along(selected))
scripts <- paste0(numbers, "_", selected, ".R")
label <- paste(scripts, collapse = ">")
cat(label, "\n", sep = "")
steps <- c("import", "clean", "model", "report")
step_count <- 
selected <- steps[seq_len(step_count)]
numbers <- sprintf("%02d", seq_along(selected))
scripts <- paste0(numbers, "_", selected, ".R")
label <- paste(scripts, collapse = ">")
cat(label, "\n", sep = "")
steps <- c("import", "clean", "model", "report")
step_count <- 
selected <- steps[seq_len(step_count)]
numbers <- sprintf("%02d", seq_along(selected))
scripts <- paste0(numbers, "_", selected, ".R")
label <- paste(scripts, collapse = ">")
cat(label, "\n", sep = "")
step order Numbered filenames make execution order visible.
sprintf `sprintf("%02d", ...)` formats numbers with leading zeros.
seq_along `seq_along(selected)` creates positions for each chosen script.