@@ -2,7 +2,7 @@ context("subplot")
2
2
3
3
expect_traces <- function (p , n.traces , name ){
4
4
stopifnot(is.numeric(n.traces ))
5
- L <- save_outputs(p , paste0(" plotly-subplot" , name ))
5
+ L <- save_outputs(p , paste0(" plotly-subplot- " , name ))
6
6
expect_equal(length(L $ data ), n.traces )
7
7
L
8
8
}
@@ -14,7 +14,7 @@ test_that("simple subplot works", {
14
14
expect_identical(s $ data [[2 ]]$ xaxis , s $ layout [[" yaxis2" ]][[" anchor" ]])
15
15
expect_identical(s $ data [[2 ]]$ yaxis , s $ layout [[" xaxis2" ]][[" anchor" ]])
16
16
doms <- lapply(s $ layout , " [[" , " domain" )
17
- expect_true(doms $ xaxis [2 ] < doms $ xaxis2 [1 ])
17
+ expect_true(doms $ xaxis [2 ] < = doms $ xaxis2 [1 ])
18
18
})
19
19
20
20
test_that(" nrows argument works" , {
@@ -24,7 +24,7 @@ test_that("nrows argument works", {
24
24
expect_identical(s $ data [[2 ]]$ xaxis , s $ layout [[" yaxis2" ]][[" anchor" ]])
25
25
expect_identical(s $ data [[2 ]]$ yaxis , s $ layout [[" xaxis2" ]][[" anchor" ]])
26
26
doms <- lapply(s $ layout , " [[" , " domain" )
27
- expect_true(doms $ yaxis [1 ] > doms $ yaxis2 [2 ])
27
+ expect_true(doms $ yaxis [1 ] > = doms $ yaxis2 [2 ])
28
28
})
29
29
30
30
0 commit comments