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.

service_window_report.R
failed_checks <- 
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 <- 
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 <- 
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 = "")
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.