R/utils-base.R

In harell/github.explorer: Discover and Explore the Relationships Between R Packages and R Users

#' @name utils-base
#' @rdname utils-base
#' @noRd
#' @title Base Functions
#'
NULL


#' @rdname utils-base
#' @noRd
does_not_exist <- purrr::negate(base::exists)


#' @rdname utils-base
#' @noRd
file_not_exists <- purrr::negate(base::file.exists)


#' @rdname utils-base
#' @noRd
`%not_in%` <- purrr::negate(`%in%`)


#' @rdname utils-base
#' @noRd
permute <- function(x){
    if(length(x) == 0){
        return(sample(x))
    } else if (length(x) == 1) {
        return(x)
    } else {
        return(sample(x))
    }
}