1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
context("name-mapping")
test_that("can create multiple traces from name argument", {
l <- plot_ly() %>%
add_markers(x = 1:10, y = 1:10, name = rep(c("a", "b"), 5)) %>%
plotly_build()
expect_length(l$x$data, 2)
expect_equal(l$x$data[[1]]$name, "a")
expect_equal(l$x$data[[2]]$name, "b")
})
test_that("can override name argument", {
l <- plot_ly() %>%
add_markers(x = 1:10, y = 1:10, split = rep(c("a", "b"), 5), name = "z") %>%
plotly_build()
expect_length(l$x$data, 2)
expect_equal(l$x$data[[1]]$name, "z")
expect_equal(l$x$data[[2]]$name, "z")
# can get back old behvaior
l2 <- plot_ly() %>%
add_markers(x = 1:10, y = 1:10, split = rep(c("a", "b"), 5), name = paste0(rep(c("a", "b"), 5), "<br>z")) %>%
plotly_build()
expect_length(l2$x$data, 2)
expect_equal(l2$x$data[[1]]$name, "a<br>z")
expect_equal(l2$x$data[[2]]$name, "b<br>z")
})
test_that("doesn't break old behavior", {
# from https://community.plot.ly/t/manual-color-bug/10479
density1 <- density(diamonds[diamonds$cut %in% "Fair", ]$carat)
density2 <- density(diamonds[diamonds$cut %in% "Ideal",]$carat)
l <- plot_ly(x = ~density1$x, y = ~density1$y, type = 'scatter', mode = 'lines', name = 'Fair cut', fill = 'tozeroy',
fillcolor = 'rgba(168, 216, 234, 0.5)',
line = list(width = 0.5)) %>%
add_trace(x = ~density2$x, y = ~density2$y, name = 'Ideal cut', fill = 'tozeroy',
fillcolor = 'rgba(255, 212, 96, 0.5)') %>%
plotly_build()
expect_equal(l$x$data[[1]]$name, "Fair cut")
expect_equal(l$x$data[[2]]$name, "Ideal cut")
})
|
