|
1 | | -context("thematic") |
2 | | - |
3 | | -test_that("ggplotly() works with thematic", { |
4 | | - skip_if_not_installed("thematic") |
5 | | - library(thematic) |
6 | | - thematic_on(bg = "black", fg = "white", accent = "purple") |
7 | | - on.exit(thematic_off(), add = TRUE) |
8 | | - expect_doppelganger_built( |
9 | | - qplot(1:10, 1:10), |
10 | | - "thematic-geom-and-theme-defaults" |
11 | | - ) |
12 | | - expect_doppelganger_built( |
13 | | - qplot(1:10, 1:10, color = 1:10), |
14 | | - "thematic-sequential" |
15 | | - ) |
16 | | - expect_doppelganger_built( |
17 | | - ggplot(economics_long, aes(date, value01, color = variable)) + geom_line(), |
18 | | - "thematic-qualitative" |
19 | | - ) |
20 | | -}) |
| 1 | +# context("thematic") |
| 2 | +# |
| 3 | +# test_that("ggplotly() works with thematic", { |
| 4 | +# skip_if_not_installed("thematic") |
| 5 | +# library(thematic) |
| 6 | +# thematic_on(bg = "black", fg = "white", accent = "purple") |
| 7 | +# on.exit(thematic_off(), add = TRUE) |
| 8 | +# expect_doppelganger_built( |
| 9 | +# qplot(1:10, 1:10), |
| 10 | +# "thematic-geom-and-theme-defaults" |
| 11 | +# ) |
| 12 | +# expect_doppelganger_built( |
| 13 | +# qplot(1:10, 1:10, color = 1:10), |
| 14 | +# "thematic-sequential" |
| 15 | +# ) |
| 16 | +# expect_doppelganger_built( |
| 17 | +# ggplot(economics_long, aes(date, value01, color = variable)) + geom_line(), |
| 18 | +# "thematic-qualitative" |
| 19 | +# ) |
| 20 | +# }) |
0 commit comments