Defines functions is_installed ..stacktraceoff.. drop_nulls

# Drop NULLs from a list
drop_nulls <- function(x) {
  x[!vapply(x, is.null, logical(1))]

# Everything above this function in the stack will be hidden by default in the
# flamegraph.
..stacktraceoff.. <- function(x) x

is_installed <- function(pkg) {
  found <- TRUE
    error = function(e) found <<- FALSE

Try the profvis package in your browser

Any scripts or data that you put into this service are public.

profvis documentation built on Nov. 3, 2020, 1:06 a.m.