Capstone Mini Projects

Delivery Checklist

Summarize Readiness

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.

section_index
delivery_checklist.R
Replay: real traced execution (multi-file project)
section_index <- 2
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 <- 1
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 <- 3
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 = "")

  1. section_index ← 2

    1section_index <- 22sections <- c("data", "analysis", "report")
    values this step2section_index

  2. sections ← data, analysis, report

    1section_index <- 22sections <- c("data", "analysis", "report")3ready <- c(TRUE, FALSE, TRUE)
    values this stepdata, analysis, reportsections

  3. ready ← TRUE, FALSE, TRUE

    2sections <- c("data", "analysis", "report")3ready <- c(TRUE, FALSE, TRUE)4section <- sections[section_index]
    values this stepTRUE, FALSE, TRUEready

  4. section ← analysis

    3ready <- c(TRUE, FALSE, TRUE)4section <- sections[section_index]5status <- ifelse(ready[section_index], "ready", "review")
    values this stepanalysissection2section_index

  5. status ← review

    4section <- sections[section_index]5status <- ifelse(ready[section_index], "ready", "review")6label <- paste(section, status, sep = ":")
    values this stepreviewstatus2section_indexTRUE, FALSE, TRUEready

  6. label ← analysis:review

    5status <- ifelse(ready[section_index], "ready", "review")6label <- paste(section, status, sep = ":")7cat(label, "\n", sep = "")
    values this stepanalysis:reviewlabelanalysissectionreviewstatus

  7. cat(label, " ", sep = "")

    6label <- paste(section, status, sep = ":")7cat(label, "\n", sep = "")
    outputanalysis:review
    values this stepanalysis:reviewlabel

  1. section_index ← 1

    1section_index <- 12sections <- c("data", "analysis", "report")
    values this step1section_index

  2. sections ← data, analysis, report

    1section_index <- 12sections <- c("data", "analysis", "report")3ready <- c(TRUE, FALSE, TRUE)
    values this stepdata, analysis, reportsections

  3. ready ← TRUE, FALSE, TRUE

    2sections <- c("data", "analysis", "report")3ready <- c(TRUE, FALSE, TRUE)4section <- sections[section_index]
    values this stepTRUE, FALSE, TRUEready

  4. section ← data

    3ready <- c(TRUE, FALSE, TRUE)4section <- sections[section_index]5status <- ifelse(ready[section_index], "ready", "review")
    values this stepdatasection1section_index

  5. status ← ready

    4section <- sections[section_index]5status <- ifelse(ready[section_index], "ready", "review")6label <- paste(section, status, sep = ":")
    values this stepreadystatus1section_indexTRUE, FALSE, TRUEready

  6. label ← data:ready

    5status <- ifelse(ready[section_index], "ready", "review")6label <- paste(section, status, sep = ":")7cat(label, "\n", sep = "")
    values this stepdata:readylabeldatasectionreadystatus

  7. cat(label, " ", sep = "")

    6label <- paste(section, status, sep = ":")7cat(label, "\n", sep = "")
    outputdata:ready
    values this stepdata:readylabel

  1. section_index ← 3

    1section_index <- 32sections <- c("data", "analysis", "report")
    values this step3section_index

  2. sections ← data, analysis, report

    1section_index <- 32sections <- c("data", "analysis", "report")3ready <- c(TRUE, FALSE, TRUE)
    values this stepdata, analysis, reportsections

  3. ready ← TRUE, FALSE, TRUE

    2sections <- c("data", "analysis", "report")3ready <- c(TRUE, FALSE, TRUE)4section <- sections[section_index]
    values this stepTRUE, FALSE, TRUEready

  4. section ← report

    3ready <- c(TRUE, FALSE, TRUE)4section <- sections[section_index]5status <- ifelse(ready[section_index], "ready", "review")
    values this stepreportsection3section_index

  5. status ← ready

    4section <- sections[section_index]5status <- ifelse(ready[section_index], "ready", "review")6label <- paste(section, status, sep = ":")
    values this stepreadystatus3section_indexTRUE, FALSE, TRUEready

  6. label ← report:ready

    5status <- ifelse(ready[section_index], "ready", "review")6label <- paste(section, status, sep = ":")7cat(label, "\n", sep = "")
    values this stepreport:readylabelreportsectionreadystatus

  7. cat(label, " ", sep = "")

    6label <- paste(section, status, sep = ":")7cat(label, "\n", sep = "")
    outputreport:ready
    values this stepreport:readylabel
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.