Operational Reliability Reports

Service Window Report

Classify Readiness

A reliability report can combine a failed-check count with a service-window duration before choosing a status label.

Program

Play the script to choose the failed check count and inspect the readiness report.

failed_checks
service_window_report.R
Replay: real traced execution (multi-file project)
failed_checks <- 1
allowed_failures <- 1
open_minutes <- 45
status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"
line <- paste(failed_checks, open_minutes, status)
cat(line, "\n", sep = "")

failed_checks <- 0
allowed_failures <- 1
open_minutes <- 45
status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"
line <- paste(failed_checks, open_minutes, status)
cat(line, "\n", sep = "")

failed_checks <- 3
allowed_failures <- 1
open_minutes <- 45
status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"
line <- paste(failed_checks, open_minutes, status)
cat(line, "\n", sep = "")

  1. failed_checks ← 1

    1failed_checks <- 12allowed_failures <- 1
    values this step1failed_checks

  2. allowed_failures ← 1

    1failed_checks <- 12allowed_failures <- 13open_minutes <- 45
    values this step1allowed_failures

  3. open_minutes ← 45

    2allowed_failures <- 13open_minutes <- 454status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"
    values this step45open_minutes

  4. status ← ready

    3open_minutes <- 454status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"5line <- paste(failed_checks, open_minutes, status)
    values this stepreadystatus1failed_checks1allowed_failures45open_minutes

  5. line ← 1 45 ready

    4status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"5line <- paste(failed_checks, open_minutes, status)6cat(line, "\n", sep = "")
    values this step1 45 readyline1failed_checks45open_minutesreadystatus

  6. cat(line, " ", sep = "")

    5line <- paste(failed_checks, open_minutes, status)6cat(line, "\n", sep = "")
    output1 45 ready
    values this step1 45 readyline

  1. failed_checks ← 0

    1failed_checks <- 02allowed_failures <- 1
    values this step0failed_checks

  2. allowed_failures ← 1

    1failed_checks <- 02allowed_failures <- 13open_minutes <- 45
    values this step1allowed_failures

  3. open_minutes ← 45

    2allowed_failures <- 13open_minutes <- 454status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"
    values this step45open_minutes

  4. status ← ready

    3open_minutes <- 454status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"5line <- paste(failed_checks, open_minutes, status)
    values this stepreadystatus0failed_checks1allowed_failures45open_minutes

  5. line ← 0 45 ready

    4status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"5line <- paste(failed_checks, open_minutes, status)6cat(line, "\n", sep = "")
    values this step0 45 readyline0failed_checks45open_minutesreadystatus

  6. cat(line, " ", sep = "")

    5line <- paste(failed_checks, open_minutes, status)6cat(line, "\n", sep = "")
    output0 45 ready
    values this step0 45 readyline

  1. failed_checks ← 3

    1failed_checks <- 32allowed_failures <- 1
    values this step3failed_checks

  2. allowed_failures ← 1

    1failed_checks <- 32allowed_failures <- 13open_minutes <- 45
    values this step1allowed_failures

  3. open_minutes ← 45

    2allowed_failures <- 13open_minutes <- 454status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"
    values this step45open_minutes

  4. status ← blocked

    3open_minutes <- 454status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"5line <- paste(failed_checks, open_minutes, status)
    values this stepblockedstatus3failed_checks1allowed_failures45open_minutes

  5. line ← 3 45 blocked

    4status <- if (failed_checks <= allowed_failures && open_minutes >= 30) "ready" else "blocked"5line <- paste(failed_checks, open_minutes, status)6cat(line, "\n", sep = "")
    values this step3 45 blockedline3failed_checks45open_minutesblockedstatus

  6. cat(line, " ", sep = "")

    5line <- paste(failed_checks, open_minutes, status)6cat(line, "\n", sep = "")
    output3 45 blocked
    values this step3 45 blockedline
combined guard The readiness decision checks both failed checks and service-window minutes.
status label The `if` expression returns the report status as ordinary string data.
report line The final line keeps the selected signal, window length, and derived status visible.