Inspect how many times a method was called

Inspect how many times a method was called

Usage

ggtrace_inspect_n(x, method, ..., error = FALSE)

inspect_n(x, method, ..., error = FALSE)

Arguments

x

A ggplot object

method

A function or a ggproto method. The ggproto method may be specified using any of the following forms:

• ggproto$method

• namespace::ggproto$method

• namespace:::ggproto$method

...

Unused.

error

If TRUE, continues inspecting the method until the ggplot errors. This is useful for debugging but note that it can sometimes return incomplete output.

Value

The number of times method was called in the evaluation of x

Examples

library(ggplot2)

p1 <- ggplot(diamonds, aes(cut)) +
  geom_bar(aes(fill = cut)) +
  facet_wrap(~ clarity)

p1


# 1 call to Stat$compute_layer
inspect_n(p1, Stat$compute_layer)
#> [1] 1

# 8 calls to Stat$compute_panel
inspect_n(p1, Stat$compute_panel)
#> [1] 8

# Note that there are 0 calls to Stat$compute_group ...
inspect_n(p1, Stat$compute_group)
#> [1] 0

# because StatCount has its own "compute_group" method defined
inspect_n(p1, StatCount$compute_group)
#> [1] 40

# How about if we add a second layer that uses StatCount?
p2 <- p1 + geom_text(
  aes(label = after_stat(count)),
  stat = StatCount, position = position_nudge(y = 500)
)

p2


# Now there are double the calls to Stat/StatCount methods
inspect_n(p2, Stat$compute_layer)
#> [1] 2
inspect_n(p2, Stat$compute_panel)
#> [1] 16
inspect_n(p2, StatCount$compute_group)
#> [1] 80