Commit05f519b

authored

breaks_pretty() will return zero-range limit (#455)

1 parent5a3ddee commit05f519bCopy full SHA for 05f519b

File tree

-1

lines changed

-1

lines changed

Lines changed: 1 addition & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,6 @@`
`1`	`1`	`#scales (development version)`
`2`	`2`
	`3`	+*`breaks_pretty()` will return the input limit when it has no range (#446)
`3`	`4`	*`transform_exp()` now has more sensible breaks, available in`breaks_exp()`
`4`	`5`	`(@teunbrand,#405).`
`5`	`6`	`* The scales package now keeps track of known palettes. These can be retrieved`

Lines changed: 3 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -122,6 +122,9 @@ breaks_pretty <- function(n = 5, ...) {`
`122`	`122`	`force_all(n,...)`
`123`	`123`	`n_default<-n`
`124`	`124`	`function(x,n=n_default) {`
	`125`	`+if (zero_range(as.numeric(x))) {`
	`126`	`+return(x[1])`
	`127`	`+ }`
`125`	`128`	`breaks<- pretty(x,n,...)`
`126`	`129`	`names(breaks)<- attr(breaks,"labels")`
`127`	`130`	`breaks`

Lines changed: 4 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -31,8 +31,11 @@ test_that("breaks_pretty() arguments are forcely evaluated on each call #81", {`
`31`	`31`	`expect_equal(subfun2(1),subfuns[[2]](1))`
`32`	`32`	`})`
`33`	`33`
`34`		`-test_that("exponential breaks give sensible values", {`
	`34`	`+test_that("breaks_pretty() returns input when given zero-width range (#446)", {`
	`35`	`+ expect_equal(breaks_pretty()(c(1,1)),1)`
	`36`	`+})`
`35`	`37`
	`38`	`+test_that("exponential breaks give sensible values", {`
`36`	`39`	`x<- breaks_exp()(c(0,2))`
`37`	`40`	`expect_equal(x, c(0,0.5,1,1.5,2))`
`38`	`41`

Comments

(0)