Profile an R expression and visualize profiling data

This function will run an R expression with profiling, and then return an htmlwidget for interactively exploring the profiling data.

profvis(expr = NULL, interval = 0.01, prof_output = NULL,
  prof_input = NULL, width = NULL, height = NULL, split = c("h",
  "v"), torture = 0)

Arguments

expr	Code to profile. Not compatible with prof_input.
interval	Interval for profiling samples, in seconds. Values less than 0.005 (5 ms) will probably not result in accurate timings
prof_output	Name of an Rprof output file or directory in which to save profiling data. If NULL (the default), a temporary file will be used and automatically removed when the function exits. For a directory, a random filename is used.
prof_input	The path to an Rprof data file. Not compatible with expr or prof_output.
width	Width of the htmlwidget.
height	Height of the htmlwidget
split	Direction of split. Either "v" (the default) for vertical, or "h" for horizontal. This is the orientation of the split bar.
torture	Triggers garbage collection after every torture memory allocation call. Note that memory allocation is only approximate due to the nature of the sampling profiler and garbage collection: when garbage collection triggers, memory allocations will be attributed to different lines of code. Using torture = steps helps prevent this, by making R trigger garbage collection after every torture memory allocation step.

Details

An alternate way to use profvis is to separately capture the profiling data to a file using Rprof(), and then pass the path to the corresponding data file as the prof_input argument to profvis().

See also

print.profvis for printing options.

Rprof for more information about how the profiling data is collected.

Examples

# Only run these examples in interactive R sessions
if (interactive()) {

# Profile some code
profvis({
  dat <- data.frame(
    x = rnorm(5e4),
    y = rnorm(5e4)
  )

  plot(x ~ y, data = dat)
  m <- lm(x ~ y, data = dat)
  abline(m, col = "red")
})


# Save a profile to an HTML file
p <- profvis({
  dat <- data.frame(
    x = rnorm(5e4),
    y = rnorm(5e4)
  )

  plot(x ~ y, data = dat)
  m <- lm(x ~ y, data = dat)
  abline(m, col = "red")
})
htmlwidgets::saveWidget(p, "profile.html")

# Can open in browser from R
browseURL("profile.html")

}