tests

Author: cpsievert

tests/testthat/test-plotly.R

@@ -162,7 +162,15 @@ test_that("Discrete variable mapped to x creates horizontal bar chart", {
   expect_equal(unique(types), "histogram")
 })
 
-
+test_that("Can avoid inheriting attributes", {
+  p <- plot_ly(mtcars, x = ~wt, y = ~mpg, color = I("red")) %>%
+    add_histogram(x = ~factor(vs), inherit = FALSE)
+  l <- expect_traces(p, 1, "inherit-FALSE")
+  expect_equal(l$data[[1]][["type"]], "histogram")
+  expect_equal(l$data[[1]][["x"]], factor(mtcars[["vs"]]))
+  expect_null(l$data[[1]][["y"]])
+  expect_true(l$data[[1]][["marker"]][["color"]] != toRGB("red"))
+})
 
 test_that("Complex example works", {
   # note how median (the variable) doesn't exist in the second layer 
@@ -181,7 +189,3 @@ test_that("Complex example works", {
 
   l <- expect_traces(p, 3, "time-series-summary")
 })
-
-
-
-