test_that("no scale for NULL aesthetic", { expect_equal(find_scale("colour", NULL), NULL) }) test_that("no scale for Inf aesthetic", { expect_equal(find_scale("colour", Inf), NULL) }) test_that("message + continuous for unknown type", { x <- structure(1:10, class = "ggplot2_foo") expect_message(scale <- find_scale("colour", x), "ggplot2_foo") expect_s3_class(scale, "ScaleContinuous") })
Generated by dwww version 1.15 on Sat Jun 15 21:45:53 CEST 2024.