arphit: RBA-style R Plots

## Title ===================

test_that("Title", {
  p <- arphitgg() + agg_title("Test")
  expect_true(check_graph(p, "notes-title"))

  p <- arphitgg(layout = "2b2") +
    agg_title("Test", panel = "1") +
    agg_title("Test 3", panel = "3")
  expect_true(check_graph(p, "notes-paneltitles"))

  p <- arphitgg() +
    agg_title("This is a veeeeeerrrrrryy loooooooooonnnnnnngg title that should break across lines") + #nolint
    agg_title("This is a veeeeeerrrrrryy loooooooooonnnnnnngg panel title too",
              panel = "1")
  # Needs lower distortion because is text heavy
  expect_true(check_graph(p, "notes-long-title", 0.925))

  p <- arphitgg() +
    agg_title("This is a veeeeeerrrrrryy\nloooooooooonnnnnnngg title\nwith manual line breaks") + #nolint
    agg_title("And manual\nline\nbreaks in a veeeeeeeeeeeeeeeeeeeeeerrrrrrryyyyy loong title", #nolint
              panel = "1")
  # Needs lower distortion because is text heavy
  expect_true(check_graph(p, "notes-long-title-manual-breaks", 0.945))
})

test_that("Errors for bad titles", {
  expect_error(arphitgg() + agg_title(c("foo", "bar")),
               "text for title should be a single character, not a vector")
})


## Subtitle ===================

test_that("Subtitle", {
  p <- arphitgg() + agg_subtitle("Test")
  expect_true(check_graph(p, "notes-subtitle"))

  p <- arphitgg(layout = "2b2") +
    agg_subtitle("Test", panel = "1") +
    agg_subtitle("Test 3", panel = "3")
  expect_true(check_graph(p, "notes-panelsubtitles"))

  p <- arphitgg() +
    agg_subtitle("This is a veeeeeerrrrrryy loooooooooonnnnnnngg title that should break across lines") + #nolint
    agg_subtitle("This is a veeeeeerrrrrryy loooooooooonnnnnnngg panel title too", #nolint
                 panel = "1")
  expect_true(check_graph(p, "notes-long-subtitle", 0.97))

  p <- arphitgg() +
    agg_subtitle("This is a veeeeeerrrrrryy\nloooooooooonnnnnnngg title\nwith manual line breaks") + #nolint
    agg_subtitle("And manual\nline\nbreaks in a veeeeeeeeeeeeeeeeeeeeeerrrrrrryyyyy loong title", #nolint
                 panel = "1")
  expect_true(check_graph(p, "notes-long-subtitle-manual-breaks", 0.97))
})

test_that("Subtitle and title", {
  p <- arphitgg() +
    agg_title("Here's a title, and some other stuff") +
    agg_subtitle("Now a subtitle, which is fun") +
    agg_title("Here's a title, and some other stuff", panel = "1") +
    agg_subtitle("Now a subtitle, which is fun", panel = "1")
  # Needs lower distortion because is text heavy
  expect_true(check_graph(p, "notes-title-and-subtitle", 0.92))
})
test_that("Errors for bad subtitles", {
  expect_error(arphitgg() + agg_subtitle(c("foo", "bar")),
               "text for subtitle should be a single character, not a vector")
})

## Footnotes ===================

test_that("Footnotes", {
  p <- arphitgg() +
    agg_footnote("This is a footnote") + agg_footnote("second footnote")
  expect_true(check_graph(p, "notes-footnotes", 0.985))
  p <- arphitgg() +
    agg_footnote(c("This is a footnote", "second footnote"))
  expect_true(check_graph(p, "notes-footnotes", 0.985))
  p <- arphitgg() + agg_footnote("Just one footnote this time")
  expect_true(check_graph(p, "notes-footnote"))

  p <- arphitgg() +
    agg_footnote(
      c("A footnote",
        "A veeeeeeeeeeeeery loooooooooooong foooooootnoooote that should split over lines")) #nolint
  expect_true(check_graph(p, "notes-footnote-long"))

  p <- arphitgg() +
    agg_footnote(
      c("A footnote",
        "An already split\nveeeeeeeeeeeeery loooooooooooong foooooootnoooote that should split over lines")) #nolint
  expect_true(check_graph(p, "notes-footnote-long-manual-breaks", 0.985))
})

## Source ===================

test_that("Sources", {
  p <- arphitgg() + agg_source("One source")
  expect_true(check_graph(p, "notes-source"))
  p <- arphitgg() + agg_source(c("One source", "Two source"))
  expect_true(check_graph(p, "notes-sources"))
  p <- arphitgg() + agg_source("One source") + agg_source("Three source")
  expect_true(check_graph(p, "notes-sources2"))
})