CRAN Package Check Results for Package colorplaner

Last updated on 2018-08-18 10:50:23 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.3 3.23 43.27 46.50 ERROR
r-devel-linux-x86_64-debian-gcc 0.1.3 2.37 34.23 36.60 ERROR
r-devel-linux-x86_64-fedora-clang 0.1.3 55.59 ERROR
r-devel-linux-x86_64-fedora-gcc 0.1.3 53.29 ERROR
r-devel-windows-ix86+x86_64 0.1.3 10.00 78.00 88.00 ERROR
r-patched-linux-x86_64 0.1.3 3.27 38.43 41.70 ERROR
r-patched-solaris-x86 0.1.3 76.90 ERROR
r-release-linux-x86_64 0.1.3 2.72 38.58 41.30 ERROR
r-release-windows-ix86+x86_64 0.1.3 12.00 77.00 89.00 ERROR
r-release-osx-x86_64 0.1.3 OK
r-oldrel-windows-ix86+x86_64 0.1.3 5.00 59.00 64.00 ERROR
r-oldrel-osx-x86_64 0.1.3 OK

Check Details

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’ [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-devel-linux-x86_64-debian-clang, 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:
     ...
    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: 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' [6s]
    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' [8s]
    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