1context("geom_rule") 2# tests for geom_vline, geom_hline & geom_abline 3 4df <- data_frame(x = 1:3, y = 3:1) 5p <- ggplot(df, aes(x, y)) + geom_point() 6p_col <- ggplot(df, aes(x, y, colour = factor(x))) + geom_point() 7 8test_that("setting parameters makes one row df", { 9 b <- p + geom_hline(yintercept = 1.5) 10 expect_equal(layer_data(b, 2)$yintercept, 1.5) 11 12 b <- p + geom_vline(xintercept = 1.5) 13 expect_equal(layer_data(b, 2)$xintercept, 1.5) 14 15 b <- p + geom_abline() 16 expect_equal(layer_data(b, 2)$intercept, 0) 17 expect_equal(layer_data(b, 2)$slope, 1) 18 19 b <- p + geom_abline(slope = 0, intercept = 1) 20 expect_equal(layer_data(b, 2)$intercept, 1) 21 expect_equal(layer_data(b, 2)$slope, 0) 22}) 23 24test_that("setting aesthetics generates one row for each input row", { 25 b <- p + geom_hline(aes(yintercept = 1.5)) 26 expect_equal(layer_data(b, 2)$yintercept, rep(1.5, 3)) 27 28 b <- p + geom_vline(aes(xintercept = 1.5)) 29 expect_equal(layer_data(b, 2)$xintercept, rep(1.5, 3)) 30 31 b <- p + geom_abline(aes(slope = 0, intercept = 1)) 32 expect_equal(layer_data(b, 2)$intercept, rep(1, 3)) 33 expect_equal(layer_data(b, 2)$slope, rep(0, 3)) 34}) 35