add some basic subplot tests

Author: cpsievert

tests/testthat/test-plotly-subplot.R

@@ -0,0 +1,32 @@
+context("subplot")
+
+expect_traces <- function(p, n.traces, name){
+  stopifnot(is.numeric(n.traces))
+  L <- save_outputs(p, paste0("plotly-subplot", name))
+  expect_equal(length(L$data), n.traces)
+  L
+}
+
+test_that("simple subplot works", {
+  p1 <- plot_ly(x = c(1, 2))
+  p2 <- plot_ly(x = c(1, 2))
+  s <- expect_traces(subplot(p1, p2), 2, "simple")
+  expect_identical(s$data[[2]]$xaxis, s$layout[["yaxis2"]][["anchor"]])
+  expect_identical(s$data[[2]]$yaxis, s$layout[["xaxis2"]][["anchor"]])
+  doms <- lapply(s$layout, "[[", "domain")
+  expect_true(doms$xaxis[2] < doms$xaxis2[1])
+})
+
+test_that("nrows argument works", {
+  p1 <- plot_ly(x = c(1, 2))
+  p2 <- plot_ly(x = c(1, 2))
+  s <- expect_traces(subplot(p1, p2, nrows = 2), 2, "simple")
+  expect_identical(s$data[[2]]$xaxis, s$layout[["yaxis2"]][["anchor"]])
+  expect_identical(s$data[[2]]$yaxis, s$layout[["xaxis2"]][["anchor"]])
+  doms <- lapply(s$layout, "[[", "domain")
+  expect_true(doms$yaxis[1] > doms$yaxis2[2])
+})
+
+
+
+