Commit 9983a5a

committed

Add failing test case for #2298

1 parent 0469eab commit 9983a5aCopy full SHA for 9983a5a

File tree

+10

-0

lines changed

+10

-0

lines changed

Lines changed: 10 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -48,6 +48,16 @@ test_that("marker color inherits from fill, when appropriate", {`
`48`	`48`	`})`
`49`	`49`
`50`	`50`
	`51`	`+test_that("when marker color inherits from fill, colours are assigned correctly #2298", {`
	`52`	`+ df <- data.frame(x = c(1,2), y = c(0,0), color = rep("yellow", 2), fill = 1:2)`
	`53`	`+ p <- ggplot(df) +`
	`54`	`+ geom_point(aes(x = x, y = y, fill = fill, color = color), size = 5, shape = 21) +`
	`55`	`+ scale_fill_gradient(low = "green", high = "red")`
	`56`	`+ pb <- plotly_build(p)`
	`57`	`+ expect_equivalent(pb$x$data[[1]]$marker$color, c("rgba(0,255,0,1)", "rgba(255,0,0,1)"))`
	`58`	`+})`
	`59`	`+`
	`60`	`+`
`51`	`61`	`test_that("can plot on sub-second time scale", {`
`52`	`62`	`d <- data.frame(`
`53`	`63`	`x = as.POSIXct("2018年09月28日 15:13:06 CDT") + 1e-3 * c(1:9, 5000),`

Comments

(0)