Open
Description
Following strategy in ggplot2. Will no longer need to pass right_closed
# Strategy adapted from base::hist()
diddle <- 1e-07 * stats::median(diff(x))
if (closed == "right") {
fuzz <- c(-diddle, rep.int(diddle, length(x) - 1))
} else {
fuzz <- c(rep.int(-diddle, length(x) - 1), diddle)
}
breaks <- sort(x) + fuzz
Metadata
Metadata
Assignees
Labels
No labels