Operational Reliability Reports

Incident Queue Report

Count Visible Tickets

A queue report can scan compact severity values, count tickets at or above a selected threshold, and keep a separate high-severity total.

Program

Play the script to choose the minimum severity and inspect the queue counts.

min_severity
incident_queue_report.R
Replay: real traced execution (multi-file project)
min_severity <- 2
severities <- c(1, 3, 2, 3)
visible_count <- sum(severities >= min_severity)
high_count <- sum(severities == 3)
line <- paste(min_severity, visible_count, high_count)
cat(line, "\n", sep = "")

min_severity <- 1
severities <- c(1, 3, 2, 3)
visible_count <- sum(severities >= min_severity)
high_count <- sum(severities == 3)
line <- paste(min_severity, visible_count, high_count)
cat(line, "\n", sep = "")

min_severity <- 3
severities <- c(1, 3, 2, 3)
visible_count <- sum(severities >= min_severity)
high_count <- sum(severities == 3)
line <- paste(min_severity, visible_count, high_count)
cat(line, "\n", sep = "")

  1. min_severity ← 2

    1min_severity <- 22severities <- c(1, 3, 2, 3)
    values this step2min_severity

  2. severities ← 1, 3, 2, 3

    1min_severity <- 22severities <- c(1, 3, 2, 3)3visible_count <- sum(severities >= min_severity)
    values this step1, 3, 2, 3severities

  3. visible_count ← 3

    2severities <- c(1, 3, 2, 3)3visible_count <- sum(severities >= min_severity)4high_count <- sum(severities == 3)
    values this step3visible_countFALSE, TRUE, TRUE, TRUEseverities >= min_severity

  4. high_count ← 2

    3visible_count <- sum(severities >= min_severity)4high_count <- sum(severities == 3)5line <- paste(min_severity, visible_count, high_count)
    values this step2high_countFALSE, TRUE, FALSE, TRUEseverities == 3

  5. line ← 2 3 2

    4high_count <- sum(severities == 3)5line <- paste(min_severity, visible_count, high_count)6cat(line, "\n", sep = "")
    values this step2 3 2line2min_severity3visible_count2high_count

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

    5line <- paste(min_severity, visible_count, high_count)6cat(line, "\n", sep = "")
    output2 3 2
    values this step2 3 2line

  1. min_severity ← 1

    1min_severity <- 12severities <- c(1, 3, 2, 3)
    values this step1min_severity

  2. severities ← 1, 3, 2, 3

    1min_severity <- 12severities <- c(1, 3, 2, 3)3visible_count <- sum(severities >= min_severity)
    values this step1, 3, 2, 3severities

  3. visible_count ← 4

    2severities <- c(1, 3, 2, 3)3visible_count <- sum(severities >= min_severity)4high_count <- sum(severities == 3)
    values this step4visible_countTRUE, TRUE, TRUE, TRUEseverities >= min_severity

  4. high_count ← 2

    3visible_count <- sum(severities >= min_severity)4high_count <- sum(severities == 3)5line <- paste(min_severity, visible_count, high_count)
    values this step2high_countFALSE, TRUE, FALSE, TRUEseverities == 3

  5. line ← 1 4 2

    4high_count <- sum(severities == 3)5line <- paste(min_severity, visible_count, high_count)6cat(line, "\n", sep = "")
    values this step1 4 2line1min_severity4visible_count2high_count

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

    5line <- paste(min_severity, visible_count, high_count)6cat(line, "\n", sep = "")
    output1 4 2
    values this step1 4 2line

  1. min_severity ← 3

    1min_severity <- 32severities <- c(1, 3, 2, 3)
    values this step3min_severity

  2. severities ← 1, 3, 2, 3

    1min_severity <- 32severities <- c(1, 3, 2, 3)3visible_count <- sum(severities >= min_severity)
    values this step1, 3, 2, 3severities

  3. visible_count ← 2

    2severities <- c(1, 3, 2, 3)3visible_count <- sum(severities >= min_severity)4high_count <- sum(severities == 3)
    values this step2visible_countFALSE, TRUE, FALSE, TRUEseverities >= min_severity

  4. high_count ← 2

    3visible_count <- sum(severities >= min_severity)4high_count <- sum(severities == 3)5line <- paste(min_severity, visible_count, high_count)
    values this step2high_countFALSE, TRUE, FALSE, TRUEseverities == 3

  5. line ← 3 2 2

    4high_count <- sum(severities == 3)5line <- paste(min_severity, visible_count, high_count)6cat(line, "\n", sep = "")
    values this step3 2 2line3min_severity2visible_count2high_count

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

    5line <- paste(min_severity, visible_count, high_count)6cat(line, "\n", sep = "")
    output3 2 2
    values this step3 2 2line
threshold count `sum(severities >= min_severity)` counts incidents at or above the selected severity.
independent count The high-severity counter is separate from the visible threshold.
loop-free report Vectorized comparisons keep the report deterministic and compact.