tests/testthat/test-annotate.R

In ggformula: Formula Interface to the Grammar of Graphics

context("annotate")

p <- gf_point(mpg ~wt, data = mtcars)

test_that(
  "single text", {
    wrapped_expect_doppelganger(
      "single text",
      p |> gf_annotate("text", x = 4, y = 25, label = "Some text")
    )
  }
)

test_that(
  "multiple text", {
    wrapped_expect_doppelganger(
      "multiple text",
      p |> gf_annotate("text", x = 2:5, y = 25, label = "Some text")
    )
  }
)

test_that(
  "rect", {
    wrapped_expect_doppelganger(
      "rect",
      p |> gf_annotate("rect", xmin = 3, xmax = 4.2, ymin = 12, ymax = 21,
             alpha = .2)
    )
  }
)

test_that(
  "segment", {
    wrapped_expect_doppelganger(
      "segment",
      p |> gf_annotate("segment", x = 2.5, xend = 4, y = 15, yend = 25,
                       colour = "blue")
    )
  }
)

test_that(
  "pointrange", {
    wrapped_expect_doppelganger(
      "pointrange",
      p |> gf_annotate("pointrange", x = 3.5, y = 20, ymin = 12, ymax = 28,
                       colour = "red", size = 2.5, linewidth = 1.5)
    )
  }
)

test_that(
  "label", {
    wrapped_expect_doppelganger(
      "label",
      p |> gf_annotate("text", x = 2:3, y = 20:21, label = c("my label", "label 2"))
    )
  }
)

test_that(
  "label with formatting", {
    wrapped_expect_doppelganger(
      "label with formatting",
      p |> gf_annotate("text", x = 4, y = 25, label = "italic(R) ^ 2 == 0.75",
                       parse = TRUE)
    )
  }
)