Flame Graph
Data
| git/R/profvis/test.R | Memory | Time | ||||||
|---|---|---|---|---|---|---|---|---|
| N <- 1e5 | ||||||||
| NN <- 200 | ||||||||
| fa <- function(i) { | ||||||||
| fb(i) | ||||||||
| fc(i) | ||||||||
| runif(NN) | ||||||||
| } | ||||||||
| fb <- function(i) fc(i) | ||||||||
| fc <- function(i) runif(NN) | ||||||||
| profvis::profvis( | ||||||||
| lapply(seq_len(N), function(i) { | ||||||||
| if (i %% 10 == 0) fc(i) else if (i %% 3 == 0) fa(i) else fb(i) | ||||||||
| }) | ||||||||
| ) | ||||||||