add some tests

Author: cpsievert

tests/testthat/test-plotly-getfigure.R

@@ -28,3 +28,12 @@ test_that("retrieving a public figure ... works.", {
   p <- plotly_build(fig)
   expect_equivalent(p$data[[1]]$x, c("1", "2", "3"))
 })
+
+test_that("can add traces to a subplot figure", {
+  skip_on_cran()
+  fig <- get_figure('chelsea_lyn', 6366)
+  p <- add_trace(fig, x=c(1, 2, 3), y=c(4, 2, 4))
+  l <- plotly_build(p)
+  expect_equivalent(length(fig$data) + 1, length(l$data))
+})
+

tests/testthat/test-plotly.R

@@ -98,3 +98,16 @@ test_that("axis titles get attached to scene object for 3D plots", {
   expect_identical(scene$yaxis$title, "Petal.Width")
   expect_identical(scene$zaxis$title, "Sepal.Width")
 })
+
+test_that("inheriting properties works as expected", {
+  library(dplyr)
+  p <- iris %>%
+    count(Species) %>%
+    plot_ly(x = Species, y = n, opacity = 0.5, type = "bar", inherit = TRUE) %>%
+    layout(barmode = "overlay", showlegend = FALSE)
+  s <- count(iris[sample(nrow(iris), 10), ], Species)
+  p2 <- add_trace(p, data = s)
+  l <- plotly_build(p2)
+  expect_equal(l$data[[2]]$opacity, 0.5)
+  expect_true(all(l$data[[1]]$y > l$data[[2]]$y))
+})