evaluateSiteMetricQTL returns incorrect Status values in rv$data

[PuzzledFace]

rvSiteMetrics <- berrySummary %>%
                   evaluateSiteMetricQTL(
                   posterior=fitted$tab,
                   metric=p,
                   observedMetric=ObservedResponse,
                   lower=c("action"=0.05, "warn"=0.2),
                   upper=c("action"=0.95, "warn"=0.8)
                 )

rvSiteMetrics$data
#> # A tibble: 9 × 5
#>    Site Subjects Events ObservedResponse Status
#>   <int>    <dbl>  <dbl>            <dbl> <chr> 
#> 1     1       20     20            1     warn  
#> 2     2       10      4            0.4   warn  
#> 3     3       16     11            0.688 OK    
#> 4     4       19     10            0.526 warn  
#> 5     5       14      5            0.357 action
#> 6     6       46     36            0.783 OK    
#> 7     7       10      9            0.9   warn  
#> 8     8        9      7            0.778 OK    
#> 9     9        6      4            0.667 OK

Values in the Status column are clearly wrong. For example, the value in the first row should be action.