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
51
52
53
54
55
56
57
58
59
|
test_that("Can reduce saved file size with an basic (auto) partial bundle by half", {
skip_on_cran()
skip_if_not(Sys.which("pandoc") != "", "pandoc needed for this test")
p1 <- plot_ly(x = 1:10, y = 1:10) %>% add_markers()
p2 <- partial_bundle(p1)
expect_match(plotlyjsBundle(p2)$name, "basic")
f1 <- tempfile(fileext = ".html")
f2 <- tempfile(fileext = ".html")
file_size <- function(p, f) {
owd <- setwd(dirname(f))
on.exit(setwd(owd))
htmlwidgets::saveWidget(p, f)
file.info(f)$size / 1e6
}
expect_true(file_size(p1, f1) / 2 > file_size(p2, f2))
})
test_that("Can find the right bundle", {
skip_on_cran()
p1 <- plot_ly(z = ~volcano) %>% add_heatmap()
p2 <- partial_bundle(p1)
expect_match(plotlyjsBundle(p2)$name, "cartesian")
p3 <- plot_ly(z = ~volcano) %>% add_surface()
p4 <- partial_bundle(p3)
expect_match(plotlyjsBundle(p4)$name, "gl3d")
# At least right now, we don't support multiple partial bundles
expect_warning(
subplot(p1, p3) %>% partial_bundle(),
"Using the main (full) bundle",
fixed = TRUE
)
})
test_that("Throws an informative error if wrong bundle is specified", {
p1 <- plot_ly(z = ~volcano) %>% add_heatmap()
expect_error(
partial_bundle(p1, type = "basic"),
"The 'basic' bundle supports the following trace types: 'scatter', 'bar', 'pie'"
)
})
test_that("Can specify the partial bundle", {
skip_on_cran()
p1 <- plot_ly(x = 1:10, y = 1:10) %>% add_markers()
p2 <- partial_bundle(p1, type = "basic")
p3 <- partial_bundle(p1, type = "cartesian")
expect_match(plotlyjsBundle(p2)$name, "basic")
expect_match(plotlyjsBundle(p3)$name, "cartesian")
})
|
