Peek maximum-priority element

Usage

peek_max(q)

Element with maximum priority (stable on ties).

x <- priority_queue("a", "b", "c", priorities = c(2, 3, 3))
x
#> <priority_queue> size=3
#> min_priority=2 max_priority=3
peek_max(x)
#> [1] "b"