Last updated on 2018-10-09 13:51:08 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.3 | 3.49 | 44.07 | 47.56 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.1.3 | 3.15 | 34.09 | 37.24 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.1.3 | 57.65 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.1.3 | 54.56 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 0.1.3 | 7.00 | 57.00 | 64.00 | ERROR | |
| r-patched-linux-x86_64 | 0.1.3 | 3.22 | 38.14 | 41.36 | ERROR | |
| r-patched-solaris-x86 | 0.1.3 | 74.60 | ERROR | |||
| r-release-linux-x86_64 | 0.1.3 | 2.96 | 38.54 | 41.50 | ERROR | |
| r-release-windows-ix86+x86_64 | 0.1.3 | 7.00 | 57.00 | 64.00 | ERROR | |
| r-release-osx-x86_64 | 0.1.3 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 0.1.3 | 8.00 | 80.00 | 88.00 | ERROR | |
| r-oldrel-osx-x86_64 | 0.1.3 | OK |
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘colorplaner-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: color_projections
> ### Title: Color Space Projections
> ### Aliases: YUV_projection color_projections interpolate_projection
> ### red_blue_projection
>
> ### ** Examples
>
> library(ggplot2)
> ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
+ geom_point() +
+ scale_color_colorplane(color_projection = interpolate_projection,
+ zero_color = "darkorange2",
+ horizontal_color = "mediumspringgreen",
+ vertical_color = "magenta")
Error in UseMethod("guide_train") :
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
Calls: <Anonymous> ... ggplot_gtable.ggplot_built -> build_guides -> guides_train -> guide_train
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [5s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(ggplot2)
> library(colorplaner)
>
> test_check("colorplaner")
── 1. Error: Basic plotting occurs without error (@test_basics.R#16) ──────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane() + ggtitle("Filled diamond points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp, color = gear,
color2 = carb)) + geom_point(shape = 23, size = 5) + scale_fill_colorplane() +
scale_color_colorplane() + ggtitle("Filled and colored diamonds"))
}) at testthat/test_basics.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points")) at testthat/test_basics.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 2. Error: Transformed colorplane scale plots without error (@test_basics.R#37
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(trans = "log") + ggtitle("Log trans filled diamonds"))
}) at testthat/test_basics.R:37
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points")) at testthat/test_basics.R:38
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 3. Error: OOB and NA data handled without error (@test_basics.R#50) ────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = qsec, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(limits = c(NA, 18.9), limits_y = c(60,
300), na.color = "yellow") + ggtitle("Yellow out-of-bounds diamonds"))
}) at testthat/test_basics.R:50
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points")) at testthat/test_basics.R:51
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
}) at testthat/test_basics.R:71
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points")) at testthat/test_basics.R:72
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 5. Error: Faceted plots (@test_complex_plots.R#18) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))) at testthat/test_complex_plots.R:18
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 6. Error: Grouped plots (@test_complex_plots.R#29) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))) at testthat/test_complex_plots.R:29
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species, colour = Petal.Length,
color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() + ggtitle("Grouped lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 7. Error: Multiple data layer plots (@test_complex_plots.R#39) ─────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))) at testthat/test_complex_plots.R:39
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 8. Error: Colorplane only on some layers without warning (@test_complex_plots
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))) at testthat/test_complex_plots.R:52
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 9. Error: Title options (@test_guide_options.R#20) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))) at testthat/test_guide_options.R:20
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 10. Error: Axis title options (@test_guide_options.R#91) ───────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))) at testthat/test_guide_options.R:91
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 11. Error: Label options (@test_guide_options.R#153) ───────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))) at testthat/test_guide_options.R:153
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 12. Error: Plane options (@test_guide_options.R#215) ───────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))) at testthat/test_guide_options.R:215
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 13. Error: Alt projection red_blue can be used (@test_projections.R#16) ────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = red_blue_projection) + ggtitle("Red-blue color projection"))
}) at testthat/test_projections.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection")) at testthat/test_projections.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 14. Error: Interpolation projection can be used (@test_projections.R#30) ───
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") +
ggtitle("Orange-green-magenta projection"))
}) at testthat/test_projections.R:30
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection")) at testthat/test_projections.R:31
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 15. Error: Invalid Y arguments handled by YUV_projection (@test_projections.R
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_warning(print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
geom_point() + scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points")),
"YUV_projection: Y argument length > 1, using first element", fixed = TRUE) at testthat/test_projections.R:42
2: quasi_capture(enquo(object), capture_warnings, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, warning = function(condition) {
out$push(condition)
invokeRestart("muffleWarning")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
7: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 16. Error: Color scale options (@test_scale_options.R#16) ──────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 17. Error: Fill scale options (@test_scale_options.R#78) ───────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:78
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 18. Error: Plots with static color layers succeed (@test_scale_training.R#21)
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))) at testthat/test_scale_training.R:21
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) + geom_ribbon(aes(ymin = lwr,
ymax = upr), alpha = 0.35, color = NA) + geom_point() + geom_rug() + scale_color_colorplane() +
ggtitle("Grey ribbon (no outline) behind points"))
10: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 19. Error: Plots with no valid mapping give informative message (@test_scale_
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_message({
print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
}, "scale_color_colorplane requires both color and color2") at testthat/test_scale_training.R:32
2: quasi_capture(enquo(object), capture_messages, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, message = function(condition) {
out$push(condition)
invokeRestart("muffleMessage")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() + scale_color_colorplane() +
ggtitle("Mismapped colors, no guide")) at testthat/test_scale_training.R:33
7: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 20. Failure: Layer-level mappings produce guide axis titles without error (@t
`print(...)` threw an error.
Message: no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
Class: simpleError/error/condition
══ testthat results ═══════════════════════════════════════════════════════════
OK: 3 SKIPPED: 0 FAILED: 20
1. Error: Basic plotting occurs without error (@test_basics.R#16)
2. Error: Transformed colorplane scale plots without error (@test_basics.R#37)
3. Error: OOB and NA data handled without error (@test_basics.R#50)
4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
5. Error: Faceted plots (@test_complex_plots.R#18)
6. Error: Grouped plots (@test_complex_plots.R#29)
7. Error: Multiple data layer plots (@test_complex_plots.R#39)
8. Error: Colorplane only on some layers without warning (@test_complex_plots.R#52)
9. Error: Title options (@test_guide_options.R#20)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Quitting from lines 35-54 (colorplaner.Rmd)
Error: processing vignette ‘colorplaner.Rmd’ failed with diagnostics:
no applicable method for ‘guide_train’ applied to an object of class "c('guide', 'colorplane')"
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [3s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(ggplot2)
> library(colorplaner)
>
> test_check("colorplaner")
── 1. Error: Basic plotting occurs without error (@test_basics.R#16) ──────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane() + ggtitle("Filled diamond points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp, color = gear,
color2 = carb)) + geom_point(shape = 23, size = 5) + scale_fill_colorplane() +
scale_color_colorplane() + ggtitle("Filled and colored diamonds"))
}) at testthat/test_basics.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points")) at testthat/test_basics.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 2. Error: Transformed colorplane scale plots without error (@test_basics.R#37
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(trans = "log") + ggtitle("Log trans filled diamonds"))
}) at testthat/test_basics.R:37
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points")) at testthat/test_basics.R:38
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 3. Error: OOB and NA data handled without error (@test_basics.R#50) ────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = qsec, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(limits = c(NA, 18.9), limits_y = c(60,
300), na.color = "yellow") + ggtitle("Yellow out-of-bounds diamonds"))
}) at testthat/test_basics.R:50
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points")) at testthat/test_basics.R:51
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
}) at testthat/test_basics.R:71
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points")) at testthat/test_basics.R:72
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 5. Error: Faceted plots (@test_complex_plots.R#18) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))) at testthat/test_complex_plots.R:18
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 6. Error: Grouped plots (@test_complex_plots.R#29) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))) at testthat/test_complex_plots.R:29
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species, colour = Petal.Length,
color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() + ggtitle("Grouped lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 7. Error: Multiple data layer plots (@test_complex_plots.R#39) ─────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))) at testthat/test_complex_plots.R:39
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 8. Error: Colorplane only on some layers without warning (@test_complex_plots
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))) at testthat/test_complex_plots.R:52
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 9. Error: Title options (@test_guide_options.R#20) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))) at testthat/test_guide_options.R:20
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 10. Error: Axis title options (@test_guide_options.R#91) ───────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))) at testthat/test_guide_options.R:91
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 11. Error: Label options (@test_guide_options.R#153) ───────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))) at testthat/test_guide_options.R:153
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 12. Error: Plane options (@test_guide_options.R#215) ───────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))) at testthat/test_guide_options.R:215
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 13. Error: Alt projection red_blue can be used (@test_projections.R#16) ────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = red_blue_projection) + ggtitle("Red-blue color projection"))
}) at testthat/test_projections.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection")) at testthat/test_projections.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 14. Error: Interpolation projection can be used (@test_projections.R#30) ───
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") +
ggtitle("Orange-green-magenta projection"))
}) at testthat/test_projections.R:30
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection")) at testthat/test_projections.R:31
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 15. Error: Invalid Y arguments handled by YUV_projection (@test_projections.R
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_warning(print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
geom_point() + scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points")),
"YUV_projection: Y argument length > 1, using first element", fixed = TRUE) at testthat/test_projections.R:42
2: quasi_capture(enquo(object), capture_warnings, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, warning = function(condition) {
out$push(condition)
invokeRestart("muffleWarning")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
7: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 16. Error: Color scale options (@test_scale_options.R#16) ──────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 17. Error: Fill scale options (@test_scale_options.R#78) ───────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:78
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 18. Error: Plots with static color layers succeed (@test_scale_training.R#21)
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))) at testthat/test_scale_training.R:21
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) + geom_ribbon(aes(ymin = lwr,
ymax = upr), alpha = 0.35, color = NA) + geom_point() + geom_rug() + scale_color_colorplane() +
ggtitle("Grey ribbon (no outline) behind points"))
10: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 19. Error: Plots with no valid mapping give informative message (@test_scale_
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_message({
print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
}, "scale_color_colorplane requires both color and color2") at testthat/test_scale_training.R:32
2: quasi_capture(enquo(object), capture_messages, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, message = function(condition) {
out$push(condition)
invokeRestart("muffleMessage")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() + scale_color_colorplane() +
ggtitle("Mismapped colors, no guide")) at testthat/test_scale_training.R:33
7: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 20. Failure: Layer-level mappings produce guide axis titles without error (@t
`print(...)` threw an error.
Message: no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
Class: simpleError/error/condition
══ testthat results ═══════════════════════════════════════════════════════════
OK: 3 SKIPPED: 0 FAILED: 20
1. Error: Basic plotting occurs without error (@test_basics.R#16)
2. Error: Transformed colorplane scale plots without error (@test_basics.R#37)
3. Error: OOB and NA data handled without error (@test_basics.R#50)
4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
5. Error: Faceted plots (@test_complex_plots.R#18)
6. Error: Grouped plots (@test_complex_plots.R#29)
7. Error: Multiple data layer plots (@test_complex_plots.R#39)
8. Error: Colorplane only on some layers without warning (@test_complex_plots.R#52)
9. Error: Title options (@test_guide_options.R#20)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘colorplaner-Ex.R’ failed
The error most likely occurred in:
> ### Name: color_projections
> ### Title: Color Space Projections
> ### Aliases: YUV_projection color_projections interpolate_projection
> ### red_blue_projection
>
> ### ** Examples
>
> library(ggplot2)
> ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
+ geom_point() +
+ scale_color_colorplane(color_projection = interpolate_projection,
+ zero_color = "darkorange2",
+ horizontal_color = "mediumspringgreen",
+ vertical_color = "magenta")
Error in guide_train.colorplane(guide, scale, output) :
unused argument (output)
Calls: <Anonymous> ... ggplot_gtable.ggplot_built -> build_guides -> guides_train -> guide_train
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(ggplot2)
> library(colorplaner)
>
> test_check("colorplaner")
── 1. Error: Basic plotting occurs without error (@test_basics.R#16) ──────────
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane() + ggtitle("Filled diamond points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp, color = gear,
color2 = carb)) + geom_point(shape = 23, size = 5) + scale_fill_colorplane() +
scale_color_colorplane() + ggtitle("Filled and colored diamonds"))
}) at testthat/test_basics.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points")) at testthat/test_basics.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 2. Error: Transformed colorplane scale plots without error (@test_basics.R#37
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(trans = "log") + ggtitle("Log trans filled diamonds"))
}) at testthat/test_basics.R:37
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points")) at testthat/test_basics.R:38
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 3. Error: OOB and NA data handled without error (@test_basics.R#50) ────────
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = qsec, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(limits = c(NA, 18.9), limits_y = c(60,
300), na.color = "yellow") + ggtitle("Yellow out-of-bounds diamonds"))
}) at testthat/test_basics.R:50
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points")) at testthat/test_basics.R:51
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
}) at testthat/test_basics.R:71
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points")) at testthat/test_basics.R:72
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 5. Error: Faceted plots (@test_complex_plots.R#18) ─────────────────────────
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))) at testthat/test_complex_plots.R:18
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 6. Error: Grouped plots (@test_complex_plots.R#29) ─────────────────────────
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))) at testthat/test_complex_plots.R:29
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species, colour = Petal.Length,
color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() + ggtitle("Grouped lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 7. Error: Multiple data layer plots (@test_complex_plots.R#39) ─────────────
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))) at testthat/test_complex_plots.R:39
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 8. Error: Colorplane only on some layers without warning (@test_complex_plots
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))) at testthat/test_complex_plots.R:52
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 9. Error: Title options (@test_guide_options.R#20) ─────────────────────────
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))) at testthat/test_guide_options.R:20
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 10. Error: Axis title options (@test_guide_options.R#91) ───────────────────
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))) at testthat/test_guide_options.R:91
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 11. Error: Label options (@test_guide_options.R#153) ───────────────────────
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))) at testthat/test_guide_options.R:153
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 12. Error: Plane options (@test_guide_options.R#215) ───────────────────────
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))) at testthat/test_guide_options.R:215
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 13. Error: Alt projection red_blue can be used (@test_projections.R#16) ────
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = red_blue_projection) + ggtitle("Red-blue color projection"))
}) at testthat/test_projections.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection")) at testthat/test_projections.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 14. Error: Interpolation projection can be used (@test_projections.R#30) ───
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") +
ggtitle("Orange-green-magenta projection"))
}) at testthat/test_projections.R:30
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection")) at testthat/test_projections.R:31
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 15. Error: Invalid Y arguments handled by YUV_projection (@test_projections.R
unused argument (output)
1: expect_warning(print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
geom_point() + scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points")),
"YUV_projection: Y argument length > 1, using first element", fixed = TRUE) at testthat/test_projections.R:42
2: quasi_capture(enquo(object), capture_warnings, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, warning = function(condition) {
out$push(condition)
invokeRestart("muffleWarning")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
7: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 16. Error: Color scale options (@test_scale_options.R#16) ──────────────────
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 17. Error: Fill scale options (@test_scale_options.R#78) ───────────────────
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:78
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 18. Error: Plots with static color layers succeed (@test_scale_training.R#21)
unused argument (output)
1: expect_silent(print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))) at testthat/test_scale_training.R:21
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) + geom_ribbon(aes(ymin = lwr,
ymax = upr), alpha = 0.35, color = NA) + geom_point() + geom_rug() + scale_color_colorplane() +
ggtitle("Grey ribbon (no outline) behind points"))
10: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 19. Error: Plots with no valid mapping give informative message (@test_scale_
unused argument (output)
1: expect_message({
print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
}, "scale_color_colorplane requires both color and color2") at testthat/test_scale_training.R:32
2: quasi_capture(enquo(object), capture_messages, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, message = function(condition) {
out$push(condition)
invokeRestart("muffleMessage")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() + scale_color_colorplane() +
ggtitle("Mismapped colors, no guide")) at testthat/test_scale_training.R:33
7: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 20. Failure: Layer-level mappings produce guide axis titles without error (@t
`print(...)` threw an error.
Message: unused argument (output)
Class: simpleError/error/condition
══ testthat results ═══════════════════════════════════════════════════════════
OK: 3 SKIPPED: 0 FAILED: 20
1. Error: Basic plotting occurs without error (@test_basics.R#16)
2. Error: Transformed colorplane scale plots without error (@test_basics.R#37)
3. Error: OOB and NA data handled without error (@test_basics.R#50)
4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
5. Error: Faceted plots (@test_complex_plots.R#18)
6. Error: Grouped plots (@test_complex_plots.R#29)
7. Error: Multiple data layer plots (@test_complex_plots.R#39)
8. Error: Colorplane only on some layers without warning (@test_complex_plots.R#52)
9. Error: Title options (@test_guide_options.R#20)
1. ...
Error: testthat unit tests failed
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Quitting from lines 35-54 (colorplaner.Rmd)
Error: processing vignette 'colorplaner.Rmd' failed with diagnostics:
unused argument (output)
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running 'testthat.R' [5s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(ggplot2)
> library(colorplaner)
>
> test_check("colorplaner")
-- 1. Error: Basic plotting occurs without error (@test_basics.R#16) ----------
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane() + ggtitle("Filled diamond points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp, color = gear,
color2 = carb)) + geom_point(shape = 23, size = 5) + scale_fill_colorplane() +
scale_color_colorplane() + ggtitle("Filled and colored diamonds"))
}) at testthat/test_basics.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points")) at testthat/test_basics.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 2. Error: Transformed colorplane scale plots without error (@test_basics.R#37
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(trans = "log") + ggtitle("Log trans filled diamonds"))
}) at testthat/test_basics.R:37
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points")) at testthat/test_basics.R:38
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 3. Error: OOB and NA data handled without error (@test_basics.R#50) --------
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = qsec, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(limits = c(NA, 18.9), limits_y = c(60,
300), na.color = "yellow") + ggtitle("Yellow out-of-bounds diamonds"))
}) at testthat/test_basics.R:50
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points")) at testthat/test_basics.R:51
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
}) at testthat/test_basics.R:71
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points")) at testthat/test_basics.R:72
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 5. Error: Faceted plots (@test_complex_plots.R#18) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))) at testthat/test_complex_plots.R:18
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 6. Error: Grouped plots (@test_complex_plots.R#29) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))) at testthat/test_complex_plots.R:29
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species, colour = Petal.Length,
color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() + ggtitle("Grouped lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 7. Error: Multiple data layer plots (@test_complex_plots.R#39) -------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))) at testthat/test_complex_plots.R:39
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 8. Error: Colorplane only on some layers without warning (@test_complex_plots
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))) at testthat/test_complex_plots.R:52
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 9. Error: Title options (@test_guide_options.R#20) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))) at testthat/test_guide_options.R:20
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 10. Error: Axis title options (@test_guide_options.R#91) -------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))) at testthat/test_guide_options.R:91
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 11. Error: Label options (@test_guide_options.R#153) -----------------------
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))) at testthat/test_guide_options.R:153
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 12. Error: Plane options (@test_guide_options.R#215) -----------------------
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))) at testthat/test_guide_options.R:215
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 13. Error: Alt projection red_blue can be used (@test_projections.R#16) ----
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = red_blue_projection) + ggtitle("Red-blue color projection"))
}) at testthat/test_projections.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection")) at testthat/test_projections.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 14. Error: Interpolation projection can be used (@test_projections.R#30) ---
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") +
ggtitle("Orange-green-magenta projection"))
}) at testthat/test_projections.R:30
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection")) at testthat/test_projections.R:31
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 15. Error: Invalid Y arguments handled by YUV_projection (@test_projections.R
unused argument (output)
1: expect_warning(print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
geom_point() + scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points")),
"YUV_projection: Y argument length > 1, using first element", fixed = TRUE) at testthat/test_projections.R:42
2: quasi_capture(enquo(object), capture_warnings, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, warning = function(condition) {
out$push(condition)
invokeRestart("muffleWarning")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
7: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
-- 16. Error: Color scale options (@test_scale_options.R#16) ------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 17. Error: Fill scale options (@test_scale_options.R#78) -------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:78
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 18. Error: Plots with static color layers succeed (@test_scale_training.R#21)
unused argument (output)
1: expect_silent(print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))) at testthat/test_scale_training.R:21
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) + geom_ribbon(aes(ymin = lwr,
ymax = upr), alpha = 0.35, color = NA) + geom_point() + geom_rug() + scale_color_colorplane() +
ggtitle("Grey ribbon (no outline) behind points"))
10: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 19. Error: Plots with no valid mapping give informative message (@test_scale_
unused argument (output)
1: expect_message({
print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
}, "scale_color_colorplane requires both color and color2") at testthat/test_scale_training.R:32
2: quasi_capture(enquo(object), capture_messages, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, message = function(condition) {
out$push(condition)
invokeRestart("muffleMessage")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() + scale_color_colorplane() +
ggtitle("Mismapped colors, no guide")) at testthat/test_scale_training.R:33
7: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
-- 20. Failure: Layer-level mappings produce guide axis titles without error (@t
`print(...)` threw an error.
Message: unused argument (output)
Class: simpleError/error/condition
== testthat results ===========================================================
OK: 3 SKIPPED: 0 FAILED: 20
1. Error: Basic plotting occurs without error (@test_basics.R#16)
2. Error: Transformed colorplane scale plots without error (@test_basics.R#37)
3. Error: OOB and NA data handled without error (@test_basics.R#50)
4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
5. Error: Faceted plots (@test_complex_plots.R#18)
6. Error: Grouped plots (@test_complex_plots.R#29)
7. Error: Multiple data layer plots (@test_complex_plots.R#39)
8. Error: Colorplane only on some layers without warning (@test_complex_plots.R#52)
9. Error: Title options (@test_guide_options.R#20)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [4s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(ggplot2)
> library(colorplaner)
>
> test_check("colorplaner")
── 1. Error: Basic plotting occurs without error (@test_basics.R#16) ──────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane() + ggtitle("Filled diamond points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp, color = gear,
color2 = carb)) + geom_point(shape = 23, size = 5) + scale_fill_colorplane() +
scale_color_colorplane() + ggtitle("Filled and colored diamonds"))
}) at testthat/test_basics.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points")) at testthat/test_basics.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 2. Error: Transformed colorplane scale plots without error (@test_basics.R#37
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(trans = "log") + ggtitle("Log trans filled diamonds"))
}) at testthat/test_basics.R:37
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points")) at testthat/test_basics.R:38
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 3. Error: OOB and NA data handled without error (@test_basics.R#50) ────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = qsec, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(limits = c(NA, 18.9), limits_y = c(60,
300), na.color = "yellow") + ggtitle("Yellow out-of-bounds diamonds"))
}) at testthat/test_basics.R:50
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points")) at testthat/test_basics.R:51
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
}) at testthat/test_basics.R:71
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points")) at testthat/test_basics.R:72
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 5. Error: Faceted plots (@test_complex_plots.R#18) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))) at testthat/test_complex_plots.R:18
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 6. Error: Grouped plots (@test_complex_plots.R#29) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))) at testthat/test_complex_plots.R:29
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species, colour = Petal.Length,
color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() + ggtitle("Grouped lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 7. Error: Multiple data layer plots (@test_complex_plots.R#39) ─────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))) at testthat/test_complex_plots.R:39
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 8. Error: Colorplane only on some layers without warning (@test_complex_plots
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))) at testthat/test_complex_plots.R:52
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 9. Error: Title options (@test_guide_options.R#20) ─────────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))) at testthat/test_guide_options.R:20
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 10. Error: Axis title options (@test_guide_options.R#91) ───────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))) at testthat/test_guide_options.R:91
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 11. Error: Label options (@test_guide_options.R#153) ───────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))) at testthat/test_guide_options.R:153
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 12. Error: Plane options (@test_guide_options.R#215) ───────────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))) at testthat/test_guide_options.R:215
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 13. Error: Alt projection red_blue can be used (@test_projections.R#16) ────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = red_blue_projection) + ggtitle("Red-blue color projection"))
}) at testthat/test_projections.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection")) at testthat/test_projections.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 14. Error: Interpolation projection can be used (@test_projections.R#30) ───
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") +
ggtitle("Orange-green-magenta projection"))
}) at testthat/test_projections.R:30
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection")) at testthat/test_projections.R:31
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 15. Error: Invalid Y arguments handled by YUV_projection (@test_projections.R
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_warning(print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
geom_point() + scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points")),
"YUV_projection: Y argument length > 1, using first element", fixed = TRUE) at testthat/test_projections.R:42
2: quasi_capture(enquo(object), capture_warnings, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, warning = function(condition) {
out$push(condition)
invokeRestart("muffleWarning")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
7: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 16. Error: Color scale options (@test_scale_options.R#16) ──────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 17. Error: Fill scale options (@test_scale_options.R#78) ───────────────────
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:78
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 18. Error: Plots with static color layers succeed (@test_scale_training.R#21)
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_silent(print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))) at testthat/test_scale_training.R:21
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) + geom_ribbon(aes(ymin = lwr,
ymax = upr), alpha = 0.35, color = NA) + geom_point() + geom_rug() + scale_color_colorplane() +
ggtitle("Grey ribbon (no outline) behind points"))
10: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
── 19. Error: Plots with no valid mapping give informative message (@test_scale_
no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
1: expect_message({
print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
}, "scale_color_colorplane requires both color and color2") at testthat/test_scale_training.R:32
2: quasi_capture(enquo(object), capture_messages, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, message = function(condition) {
out$push(condition)
invokeRestart("muffleMessage")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() + scale_color_colorplane() +
ggtitle("Mismapped colors, no guide")) at testthat/test_scale_training.R:33
7: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
── 20. Failure: Layer-level mappings produce guide axis titles without error (@t
`print(...)` threw an error.
Message: no applicable method for 'guide_train' applied to an object of class "c('guide', 'colorplane')"
Class: simpleError/error/condition
══ testthat results ═══════════════════════════════════════════════════════════
OK: 3 SKIPPED: 0 FAILED: 20
1. Error: Basic plotting occurs without error (@test_basics.R#16)
2. Error: Transformed colorplane scale plots without error (@test_basics.R#37)
3. Error: OOB and NA data handled without error (@test_basics.R#50)
4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
5. Error: Faceted plots (@test_complex_plots.R#18)
6. Error: Grouped plots (@test_complex_plots.R#29)
7. Error: Multiple data layer plots (@test_complex_plots.R#39)
8. Error: Colorplane only on some layers without warning (@test_complex_plots.R#52)
9. Error: Title options (@test_guide_options.R#20)
1. ...
Error: testthat unit tests failed
Execution halted
Flavors: r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Warning in engine$weave(file, quiet = quiet, encoding = enc) :
Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
Quitting from lines 35-54 (colorplaner.Rmd)
Error: processing vignette 'colorplaner.Rmd' failed with diagnostics:
unused argument (output)
Execution halted
Flavor: r-patched-solaris-x86
Version: 0.1.3
Check: tests
Result: ERROR
Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(ggplot2)
> library(colorplaner)
>
> test_check("colorplaner")
-- 1. Error: Basic plotting occurs without error (@test_basics.R#16) ----------
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane() + ggtitle("Filled diamond points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp, color = gear,
color2 = carb)) + geom_point(shape = 23, size = 5) + scale_fill_colorplane() +
scale_color_colorplane() + ggtitle("Filled and colored diamonds"))
}) at testthat/test_basics.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points")) at testthat/test_basics.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 2. Error: Transformed colorplane scale plots without error (@test_basics.R#37
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(trans = "log") + ggtitle("Log trans filled diamonds"))
}) at testthat/test_basics.R:37
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points")) at testthat/test_basics.R:38
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 3. Error: OOB and NA data handled without error (@test_basics.R#50) --------
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = qsec, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(limits = c(NA, 18.9), limits_y = c(60,
300), na.color = "yellow") + ggtitle("Yellow out-of-bounds diamonds"))
}) at testthat/test_basics.R:50
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points")) at testthat/test_basics.R:51
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
}) at testthat/test_basics.R:71
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points")) at testthat/test_basics.R:72
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 5. Error: Faceted plots (@test_complex_plots.R#18) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))) at testthat/test_complex_plots.R:18
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 6. Error: Grouped plots (@test_complex_plots.R#29) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))) at testthat/test_complex_plots.R:29
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species, colour = Petal.Length,
color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() + ggtitle("Grouped lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 7. Error: Multiple data layer plots (@test_complex_plots.R#39) -------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))) at testthat/test_complex_plots.R:39
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 8. Error: Colorplane only on some layers without warning (@test_complex_plots
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))) at testthat/test_complex_plots.R:52
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 9. Error: Title options (@test_guide_options.R#20) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))) at testthat/test_guide_options.R:20
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 10. Error: Axis title options (@test_guide_options.R#91) -------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))) at testthat/test_guide_options.R:91
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 11. Error: Label options (@test_guide_options.R#153) -----------------------
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))) at testthat/test_guide_options.R:153
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 12. Error: Plane options (@test_guide_options.R#215) -----------------------
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))) at testthat/test_guide_options.R:215
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 13. Error: Alt projection red_blue can be used (@test_projections.R#16) ----
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = red_blue_projection) + ggtitle("Red-blue color projection"))
}) at testthat/test_projections.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection")) at testthat/test_projections.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 14. Error: Interpolation projection can be used (@test_projections.R#30) ---
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") +
ggtitle("Orange-green-magenta projection"))
}) at testthat/test_projections.R:30
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection")) at testthat/test_projections.R:31
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 15. Error: Invalid Y arguments handled by YUV_projection (@test_projections.R
unused argument (output)
1: expect_warning(print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
geom_point() + scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points")),
"YUV_projection: Y argument length > 1, using first element", fixed = TRUE) at testthat/test_projections.R:42
2: quasi_capture(enquo(object), capture_warnings, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, warning = function(condition) {
out$push(condition)
invokeRestart("muffleWarning")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
7: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
-- 16. Error: Color scale options (@test_scale_options.R#16) ------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 17. Error: Fill scale options (@test_scale_options.R#78) -------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:78
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 18. Error: Plots with static color layers succeed (@test_scale_training.R#21)
unused argument (output)
1: expect_silent(print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))) at testthat/test_scale_training.R:21
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) + geom_ribbon(aes(ymin = lwr,
ymax = upr), alpha = 0.35, color = NA) + geom_point() + geom_rug() + scale_color_colorplane() +
ggtitle("Grey ribbon (no outline) behind points"))
10: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 19. Error: Plots with no valid mapping give informative message (@test_scale_
unused argument (output)
1: expect_message({
print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
}, "scale_color_colorplane requires both color and color2") at testthat/test_scale_training.R:32
2: quasi_capture(enquo(object), capture_messages, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, message = function(condition) {
out$push(condition)
invokeRestart("muffleMessage")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() + scale_color_colorplane() +
ggtitle("Mismapped colors, no guide")) at testthat/test_scale_training.R:33
7: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
-- 20. Failure: Layer-level mappings produce guide axis titles without error (@t
`print(...)` threw an error.
Message: unused argument (output)
Class: simpleError/error/condition
== testthat results ===========================================================
OK: 3 SKIPPED: 0 FAILED: 20
1. Error: Basic plotting occurs without error (@test_basics.R#16)
2. Error: Transformed colorplane scale plots without error (@test_basics.R#37)
3. Error: OOB and NA data handled without error (@test_basics.R#50)
4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
5. Error: Faceted plots (@test_complex_plots.R#18)
6. Error: Grouped plots (@test_complex_plots.R#29)
7. Error: Multiple data layer plots (@test_complex_plots.R#39)
8. Error: Colorplane only on some layers without warning (@test_complex_plots.R#52)
9. Error: Title options (@test_guide_options.R#20)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-release-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running 'testthat.R' [11s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(ggplot2)
> library(colorplaner)
>
> test_check("colorplaner")
-- 1. Error: Basic plotting occurs without error (@test_basics.R#16) ----------
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane() + ggtitle("Filled diamond points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp, color = gear,
color2 = carb)) + geom_point(shape = 23, size = 5) + scale_fill_colorplane() +
scale_color_colorplane() + ggtitle("Filled and colored diamonds"))
}) at testthat/test_basics.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points")) at testthat/test_basics.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane() + ggtitle("Colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 2. Error: Transformed colorplane scale plots without error (@test_basics.R#37
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = disp, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(trans = "log") + ggtitle("Log trans filled diamonds"))
}) at testthat/test_basics.R:37
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points")) at testthat/test_basics.R:38
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(trans = "log") + ggtitle("Log trans colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 3. Error: OOB and NA data handled without error (@test_basics.R#50) --------
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
print(ggplot(mtcars, aes(x = wt, y = mpg, fill = qsec, fill2 = hp)) + geom_point(shape = 23,
size = 5) + scale_fill_colorplane(limits = c(NA, 18.9), limits_y = c(60,
300), na.color = "yellow") + ggtitle("Yellow out-of-bounds diamonds"))
}) at testthat/test_basics.R:50
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points")) at testthat/test_basics.R:51
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "yellow") +
ggtitle("Yellow out-of-bounds points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
}) at testthat/test_basics.R:71
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points")) at testthat/test_basics.R:72
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = qsec, colour2 = hp)) + geom_point(size = 4) +
scale_color_colorplane(limits = c(NA, 18.9), limits_y = c(60, 300), na.color = "red",
Y = 0.9) + ggtitle("Bright colored points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 5. Error: Faceted plots (@test_complex_plots.R#18) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))) at testthat/test_complex_plots.R:18
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
ggtitle("Facet, bright scale colors"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 6. Error: Grouped plots (@test_complex_plots.R#29) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))) at testthat/test_complex_plots.R:29
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species, colour = Petal.Length,
color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() + ggtitle("Grouped lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, shape = Species,
colour = Petal.Length, color2 = Petal.Width)) + geom_path() + scale_colour_colourplane() +
ggtitle("Grouped lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 7. Error: Multiple data layer plots (@test_complex_plots.R#39) -------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))) at testthat/test_complex_plots.R:39
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, colour = Petal.Length, color2 = Petal.Width)) +
stat_bin(aes(fill = Petal.Length), binwidth = 1) + geom_point(aes(y = Sepal.Width),
data = iris[iris$Species != "setosa", ]) + scale_colour_colourplane() + ggtitle("Points over histogram, petal width > 1, length > 3"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 8. Error: Colorplane only on some layers without warning (@test_complex_plots
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))) at testthat/test_complex_plots.R:52
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour2 = Petal.Width)) +
geom_point(aes(colour = Petal.Length)) + geom_line(aes(linetype = Species)) +
scale_color_colorplane() + ggtitle("Colorplane points with black lines"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 9. Error: Title options (@test_guide_options.R#20) -------------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))) at testthat/test_guide_options.R:20
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(title = "Test Title")) + ggtitle("Bright colors, facet, guide title: Test Title"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 10. Error: Axis title options (@test_guide_options.R#91) -------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))) at testthat/test_guide_options.R:91
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
10: print.ggplot(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Petal.Length,
color2 = Petal.Width)) + geom_point() + scale_colour_colourplane(Y = 0.5) + facet_grid(~Species) +
guides(color = guide_colourplane(axis.title = "Test Title", axis.title.y = "Y test Title")) +
ggtitle("Guide axis titles"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 11. Error: Label options (@test_guide_options.R#153) -----------------------
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))) at testthat/test_guide_options.R:153
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(ticks = F, label = F)) +
ggtitle("No ticks, no labels"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 12. Error: Plane options (@test_guide_options.R#215) -----------------------
unused argument (output)
1: expect_silent(print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))) at testthat/test_guide_options.R:215
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
10: print.ggplot(ggplot(mtcars, aes(x = drat, y = mpg, color = hp, color2 = disp/max(disp))) +
geom_point() + scale_color_colorplane(guide = guide_colorplane(planewidth = 3,
planeheight = 4)) + ggtitle("Plane taller than wide"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 13. Error: Alt projection red_blue can be used (@test_projections.R#16) ----
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = red_blue_projection) + ggtitle("Red-blue color projection"))
}) at testthat/test_projections.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection")) at testthat/test_projections.R:17
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "red_blue") + ggtitle("Red-blue color projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 14. Error: Interpolation projection can be used (@test_projections.R#30) ---
unused argument (output)
1: expect_silent({
print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") +
ggtitle("Orange-green-magenta projection"))
}) at testthat/test_projections.R:30
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection")) at testthat/test_projections.R:31
10: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(color_projection = "interpolate", zero_color = "darkorange2",
horizontal_color = "mediumspringgreen", vertical_color = "#CD00CD") + ggtitle("Orange-green-magenta projection"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 15. Error: Invalid Y arguments handled by YUV_projection (@test_projections.R
unused argument (output)
1: expect_warning(print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) +
geom_point() + scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points")),
"YUV_projection: Y argument length > 1, using first element", fixed = TRUE) at testthat/test_projections.R:42
2: quasi_capture(enquo(object), capture_warnings, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, warning = function(condition) {
out$push(condition)
invokeRestart("muffleWarning")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
7: print.ggplot(ggplot(mtcars, aes(x = wt, y = mpg, color = disp, colour2 = hp)) + geom_point() +
scale_color_colorplane(Y = c(0.5, 1, 1, 1, 1)) + ggtitle("normal colorplane points"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
-- 16. Error: Color scale options (@test_scale_options.R#16) ------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:16
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Sepal.Width/max(Sepal.Width),
color2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter") +
scale_color_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 17. Error: Fill scale options (@test_scale_options.R#78) -------------------
unused argument (output)
1: expect_silent(print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))) at testthat/test_scale_options.R:78
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
10: print.ggplot(ggplot(iris, aes(x = Petal.Width, y = Petal.Length, fill = Sepal.Width/max(Sepal.Width),
fill2 = Sepal.Length, shape = Species)) + geom_point(position = "jitter", shape = 23,
size = 5) + scale_fill_colorplane(labels = scales::percent, labels_y = function(x) paste0(x,
"!")) + ggtitle("guide labels: x percent, y with !"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 18. Error: Plots with static color layers succeed (@test_scale_training.R#21)
unused argument (output)
1: expect_silent(print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))) at testthat/test_scale_training.R:21
2: quasi_capture(enquo(object), evaluate_promise)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,
message = handle_message))
5: force(code)
6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
7: withVisible(code)
8: eval_bare(get_expr(quo), get_env(quo))
9: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) + geom_ribbon(aes(ymin = lwr,
ymax = upr), alpha = 0.35, color = NA) + geom_point() + geom_rug() + scale_color_colorplane() +
ggtitle("Grey ribbon (no outline) behind points"))
10: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R, color2 = Wind)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.35, color = NA) + geom_point() +
geom_rug() + scale_color_colorplane() + ggtitle("Grey ribbon (no outline) behind points"))
11: ggplot_gtable(data)
12: ggplot_gtable.ggplot_built(data)
13: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
14: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
15: guide_train(guide, scale, output)
-- 19. Error: Plots with no valid mapping give informative message (@test_scale_
unused argument (output)
1: expect_message({
print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
}, "scale_color_colorplane requires both color and color2") at testthat/test_scale_training.R:32
2: quasi_capture(enquo(object), capture_messages, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: withCallingHandlers(code, message = function(condition) {
out$push(condition)
invokeRestart("muffleMessage")
})
5: eval_bare(get_expr(quo), get_env(quo))
6: print(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() + scale_color_colorplane() +
ggtitle("Mismapped colors, no guide")) at testthat/test_scale_training.R:33
7: print.ggplot(ggplot(aqd, aes(x = Temp, y = Ozone, color = Solar.R)) + geom_point() +
scale_color_colorplane() + ggtitle("Mismapped colors, no guide"))
8: ggplot_gtable(data)
9: ggplot_gtable.ggplot_built(data)
10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides,
plot$labels)
11: guides_train(scales = scales, theme = theme, guides = guides, labels = labels)
12: guide_train(guide, scale, output)
-- 20. Failure: Layer-level mappings produce guide axis titles without error (@t
`print(...)` threw an error.
Message: unused argument (output)
Class: simpleError/error/condition
== testthat results ===========================================================
OK: 3 SKIPPED: 0 FAILED: 20
1. Error: Basic plotting occurs without error (@test_basics.R#16)
2. Error: Transformed colorplane scale plots without error (@test_basics.R#37)
3. Error: OOB and NA data handled without error (@test_basics.R#50)
4. Error: Arguments can be passed to projection functions (@test_basics.R#71)
5. Error: Faceted plots (@test_complex_plots.R#18)
6. Error: Grouped plots (@test_complex_plots.R#29)
7. Error: Multiple data layer plots (@test_complex_plots.R#39)
8. Error: Colorplane only on some layers without warning (@test_complex_plots.R#52)
9. Error: Title options (@test_guide_options.R#20)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64