A final capstone pass checks whether each deliverable section is ready for publication.

Program

Play the script to inspect one section and see its readiness label.

delivery_checklist.R
section_index <- 
sections <- c("data", "analysis", "report")
ready <- c(TRUE, FALSE, TRUE)
section <- sections[section_index]
status <- ifelse(ready[section_index], "ready", "review")
label <- paste(section, status, sep = ":")
cat(label, "\n", sep = "")
section_index <- 
sections <- c("data", "analysis", "report")
ready <- c(TRUE, FALSE, TRUE)
section <- sections[section_index]
status <- ifelse(ready[section_index], "ready", "review")
label <- paste(section, status, sep = ":")
cat(label, "\n", sep = "")
section_index <- 
sections <- c("data", "analysis", "report")
ready <- c(TRUE, FALSE, TRUE)
section <- sections[section_index]
status <- ifelse(ready[section_index], "ready", "review")
label <- paste(section, status, sep = ":")
cat(label, "\n", sep = "")
checklist The `sections` vector names the deliverables to inspect.
readiness flag A logical vector records whether each section is ready.
publication status The final label identifies what can ship and what still needs review.