R/utils.R

In deepdep: Visualise and Explore the Deep Dependencies of R Packages

Defines functions is_top_n is_top_perc

is_top_perc <- function(x, perc) {
  is_top_n(x, ceiling(perc * length(x)))
}

is_top_n <- function(x, n) {
  seq_along(x) %in% order(x, decreasing = TRUE)[seq_len(n)]
}

Try the deepdep package in your browser