inst/tinytest/test-annotation_ticks.R

In ggprism: A 'ggplot2' Extension Inspired by 'GraphPad Prism'

#### Setup ---------------------------------------------------------------------

## load libraries
library(ggplot2)

p <- ggplot(msleep, aes(bodywt, brainwt)) + geom_point(na.rm = TRUE)

#### Tests ---------------------------------------------------------------------

# test that the function with default arguments works
g <- p + annotation_ticks()

expect_silent(ggplotGrob(g))

# test that the function recognises the sides argument
g <- p + annotation_ticks(sides = "trbl")

expect_silent(ggplotGrob(g))
expect_equal(length(layer_grob(g, 2L)[[1]]$children), 4)

expect_error(p + annotation_ticks(sides = "banana"))

# test that the type argument works
g1 <- p + annotation_ticks(type = "both")
g2 <- p + annotation_ticks(type = "major")
g3 <- p + annotation_ticks(type = "minor")

expect_silent(ggplotGrob(g1))
expect_silent(ggplotGrob(g2))
expect_silent(ggplotGrob(g3))

expect_equal(length(layer_grob(g1, 2L)[[1]]$children[[1]]$x0), 8)
expect_equal(length(layer_grob(g2, 2L)[[1]]$children[[1]]$x0), 5)
expect_equal(length(layer_grob(g3, 2L)[[1]]$children[[1]]$x0), 3)

expect_error(p + annotation_ticks(type = "banana"))

# test that ticks can go outside
g <- p + annotation_ticks(outside = TRUE) +
  coord_cartesian(clip = "off")

expect_silent(ggplotGrob(g))

ticks <- layer_grob(g, 2L)[[1]]$children[[1]]$y1
expect_equal(
  grid::convertUnit(ticks, "pt", valueOnly = TRUE),
  c(rep(-4.8, 5), rep(-2.4, 3))
)

# test that tick lengths can be set
g <- p + annotation_ticks(
  type = "both",
  tick.length = unit(20, "pt"),
  minor.length = unit(10, "pt")
)

expect_silent(ggplotGrob(g))
layer_grob(g, 2L)

expect_identical(layer_grob(g, 2L)[[1]]$children[[1]]$y1[1], unit(20, "pt"))
expect_identical(layer_grob(g, 2L)[[1]]$children[[1]]$y1[8], unit(10, "pt"))

# test that you can set the colour with both spellings
g1 <- p + annotation_ticks(colour = "red")
g2 <- p + annotation_ticks(color = "red")

expect_silent(ggplotGrob(g1))
expect_identical(layer_grob(g1, 2L)[[1]]$children[[1]]$gp$col, "#FF0000FF")

expect_silent(ggplotGrob(g2))
expect_identical(layer_grob(g2, 2L)[[1]]$children[[1]]$gp$col, "#FF0000FF")

#### Sanity checks -------------------------------------------------------------
# test that warning occurs if both colour and color are set
expect_warning(p + annotation_ticks(colour = "red", color = "blue"))