tests/testthat/test-signs.R

In signs: Insert Proper Minus Signs

library(signs)
x <- seq(-1, 1)

test_that(
  "the basics work",
  {
    expect_equal(
      signs(x, accuracy = 1),
      c("\u22121", "0", "1")
    )
    expect_equal(
      signs(x, accuracy = 1, scale = 1, format = scales::percent),
      c("\u22121%", "0%", "1%")
    )
    expect_equal(
      signs(x, accuracy = 1, add_plusses = TRUE),
      c("\u22121", "0", "+1")
    )
    expect_equal(
      signs(x, accuracy = 1, label_at_zero = "blank"),
      c("\u22121", "", "1")
    )
    expect_equal(
      signs(x, accuracy = 1, label_at_zero = "symbol"),
      c("\u22121", "\u00b10", "1")
    )
    expect_equal(
      signs(x, accuracy = .1, scale = .1, trim_leading_zeros = TRUE),
      c("\u2212.1", ".0", ".1")
    )
  }
)

test_that(
  "errors work",
  {
    expect_error(
      signs(as.character(x)),
      "`x` should be a numeric vector."
    )
    expect_error(
      signs(x, format = "goobers"),
      cat(
        "`format` should be a function that returns a character vector,",
        "such as `scales::number` or `as.character`.",
        "Consider setting a default with",
        "`options(signs.format = your_function)`."
      )
    )
    expect_error(
      signs(x, format = exp),
      cat(
        "`format` should be a function that returns a character vector,",
        "such as `scales::number` or `as.character`.",
        "Consider setting a default with",
        "`options(signs.format = your_function)`."
      )
    )
    expect_error(
      signs(x, add_plusses = "TRUE"),
      "`add_plusses` should be a logical vector of length 1."
    )
    expect_error(
      signs(x, add_plusses = c(TRUE, FALSE)),
      "`add_plusses` should be a logical vector of length 1."
    )
    expect_error(
      signs(x, trim_leading_zeros = "TRUE"),
      "`trim_leading_zeros` should be a logical vector of length 1."
    )
    expect_error(
      signs(x, trim_leading_zeros = c(TRUE, FALSE)),
      "`trim_leading_zeros` should be a logical vector of length 1."
    )
    expect_error(
      signs(x, label_at_zero = TRUE),
      "`label_at_zero` should be either 'none', 'blank', or 'symbol'."
    )
    expect_error(
      signs(x, label_at_zero = c("none", "blank")),
      "`label_at_zero` should be either 'none', 'blank', or 'symbol'."
    )
    expect_error(
      signs(x, label_at_zero = "goober"),
      "`label_at_zero` should be either 'none', 'blank', or 'symbol'."
    )
  }
)

test_that(
  "formatted as zero counts as zero",
  {
    expect_equal(
      signs(x, accuracy = 1, scale = .1, label_at_zero = "none"),
      c("0", "0", "0")
    )
    expect_equal(
      signs(x, accuracy = 1, scale = .1, label_at_zero = "blank"),
      c("", "", "")
    )
    expect_equal(
      signs(x, accuracy = 1, scale = .1, label_at_zero = "symbol"),
      c("\u00b10", "\u00b10", "\u00b10")
    )
  }
)

test_that(
  "scientific notation works",
  {
    expect_equal(
      signs(x, accuracy = 1, scale = 1e-3, format = scales::scientific),
      c("\u22121e\u221203", "0e+00", "1e\u221203")
    )
    expect_equal(
      signs(
        x,
        accuracy    = 1,
        scale       = 1e+3,
        format      = scales::scientific,
        add_plusses = TRUE
      ),
      c("\u22121e+03", "0e+00", "+1e+03")
    )
  }
)

test_that(
  "janky scientific notation works",
  {
    expect_equal(
      signs(x, accuracy = 1, suffix = "e+03", label_at_zero = "none"),
      c("\u22121e+03", "0e+03", "1e+03")
    )
    expect_equal(
      signs(x, accuracy = 1, suffix = "e+03", label_at_zero = "blank"),
      c("\u22121e+03", "", "1e+03")
    )
    expect_equal(
      signs(x, accuracy = 1, suffix = "e+03", label_at_zero = "symbol"),
      c("\u22121e+03", "\u00b10e+03", "1e+03")
    )
  }
)