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