tests/testthat/test-lableing.R

In ggformula: Formula Interface to the Grammar of Graphics

context("labeling")

mtcars2 <- df_stats(wt ~ cyl, data = mtcars, median_wt = median)

test_that(
  "HELPrct labels work", {
    wrapped_expect_doppelganger(
      "cesd ~ i1",
      gf_point(cesd ~ i1, data = mosaicData::HELPrct)
    )
  }
)


test_that(
  "Weather labels work", {
    wrapped_expect_doppelganger(
      "high_temp, low_temp, avg_temp",
      gf_point(high_temp ~ low_temp, color = ~avg_temp, data = mosaicData::Weather)
    )
  }
)

test_that(
  "gf_relabel() works", {
    wrapped_expect_doppelganger(
      "using a list",
      gf_point(mpg ~ hp, color = ~ cyl, data = mtcars) |>
        gf_relabel(list(hp = "horsepower", mpg = "mileage (miles/gallon)", cyl = "cylinders"))
    )
    wrapped_expect_doppelganger(
      "using ...",
      gf_point(mpg ~ hp, color = ~ cyl, data = mtcars) |>
        gf_relabel(hp = "horsepower", mpg = "mileage (miles/gallon)", cyl = "cylinders")
    )
  }
)

test_that(
  "set_variable_labels() works", {
    # labelled doesnt handle a list argument
    # wrapped_expect_doppelganger(
    #   "set_variable_labels() with list",
    #   set_variable_labels(mtcars,
    #              list(hp = "horsepower", mpg = "mileage (miles/gallon)", cyl = "cylinders")) |>
    #   gf_point(mpg ~ hp, color = ~ cyl, data = mtcars)
    # )
    wrapped_expect_doppelganger(
      "set_variable_labels() without list",
      set_variable_labels(mtcars,
                 hp = "horsepower", mpg = "mileage (miles/gallon)", cyl = "cylinders") |>
      gf_point(mpg ~ hp, color = ~ cyl, data = mtcars)
    )
  }
)