R/quantities-slice_left.R

Defines functions range.slice_left

#' @export
range.slice_left <- function(distribution, ...) {
	# Not accurate when slicing between discrete points.
	r <- range(distribution$distribution)
	r[1L] <- distribution$breakpoint
	r
}
vincenzocoia/distplyr documentation built on March 5, 2024, 9:45 p.m.