. ```{r} library(lineprof) f <- function() { pause(0.1) g() h() } g <- function() { pause(0.1) h() } h <- function() { pause(0.1) } ``` ```{r} tmp <- tempfile() Rprof(tmp, interval = 0.1) f() Rprof(NULL) ``` ```{r} file.show(tmp) ``` ```{r} (l <- lineprof(f())) ``` ```{r eval=FALSE} shine(l) ```