df = data.frame(width = 1:3, height = 1:3, col = letters[1:3])
test_that("ggplotly automatically converts `color` aes to `colour`", {
p <- qplot(width, height,
data = df, color = col)
# color variable is not shown
color <- plotly_build(ggplotly(p, tooltip = c("color")))
# colour (with u!) variable is shown
expect_identical(color$x$data, plotly_build(ggplotly(p, tooltip = c("colour")))$x$data)
})
Generated by dwww version 1.15 on Fri Jun 21 22:00:38 CEST 2024.