Nothing
## ----echo=FALSE,results='hide'------------------------------------------------
library("proftools")
options(keep.source = TRUE)
knitr::opts_chunk$set(size = "small", fig.align = "center")
## -----------------------------------------------------------------------------
srcfile <- system.file("samples", "bootlmEx.R", package = "proftools")
## ----eval = FALSE-------------------------------------------------------------
# profout <- tempfile()
# Rprof(file = profout, gc.profiling = TRUE, line.profiling = TRUE)
# source(srcfile)
# Rprof(NULL)
# pd <- readProfileData(profout)
# unlink(profout)
## -----------------------------------------------------------------------------
head(funSummary(pd), 10)
## -----------------------------------------------------------------------------
head(funSummary(pd, srclines = FALSE), 10)
## -----------------------------------------------------------------------------
head(callSummary(pd), 10)
## -----------------------------------------------------------------------------
srcSummary(pd)
## -----------------------------------------------------------------------------
hotPaths(pd, total.pct = 10.0)
## -----------------------------------------------------------------------------
filteredPD <- filterProfileData(pd, select = "withVisible", skip = 4)
## -----------------------------------------------------------------------------
hotPaths(filteredPD, total.pct = 10.0)
## -----------------------------------------------------------------------------
glmPD <- filterProfileData(filteredPD, focus = "glm")
hotPaths(glmPD, total.pct = 5.0)
## ----fullCallGraph, fig.cap = "Full call graph of profile data."--------------
plotProfileCallGraph(pd)
## ----filteredCallGraph, fig.cap = "Call graph for \\code{glm.fit} call."------
plotProfileCallGraph(filterProfileData(pd, focus = "glm.fit"))
## ----printProfileCallGraph, eval=FALSE----------------------------------------
# printProfileCallGraph(filterProfileData(pd, focus = "glm.fit"))
## ----echo = FALSE, comment = NA-----------------------------------------------
printProfileCallGraph(filterProfileData(pd, focus = "glm.fit"))
## ----flameGraph, out.width = "4in", fig.cap = "Flame graph visualizing hot paths for the full profile data."----
flameGraph(pd)
## ----filteredFlameGraph, out.width = "4in", fig.cap = "Flame graph of the filtered profile data."----
flameGraph(filteredPD)
## ----timeGraph, out.width = "4in", fig.cap = "Time graph of the full profile data."----
flameGraph(pd, order = "time")
## ----eval = FALSE-------------------------------------------------------------
# fg <- flameGraph(pd)
# identify(fg)
## ----calleeTreeMap, out.width = "4in", fig.cap = "Call tree map of the full profile data."----
calleeTreeMap(pd)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.