R/fromnamespace.R

Defines functions with_seed_null

#' @importFrom utils getFromNamespace
stack_var <- getFromNamespace("stack_var", "ggplot2")

collide <- getFromNamespace("collide", "ggplot2")

collide2 <- getFromNamespace("collide2", "ggplot2")

pos_stack <- getFromNamespace("pos_stack", "ggplot2")

pos_dodge <- getFromNamespace("pos_dodge", "ggplot2")

"%||%" <- getFromNamespace("%||%", "ggplot2")

find_x_overlaps <- getFromNamespace("find_x_overlaps", "ggplot2")

pos_dodge2 <- getFromNamespace("pos_dodge2", "ggplot2")

# from ggplot2
with_seed_null <- function(seed, code) {
    if (is.null(seed)) {
        code
    } else {
        withr <- "withr"
        require(withr, character.only=TRUE)
        with_seed <- eval(parse(text="with_seed"))
        with_seed(seed, code)
    }
}

Try the ggtreeExtra package in your browser

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

ggtreeExtra documentation built on April 8, 2021, 6:01 p.m.