tests/testthat/test-plot_sdg_bar.R

test_that("geom_bar works", {
  data("sdgstat")
  p <- plot_sdg_bar(sdgstat, sdg = "SDG", value = "Value")
  x <- ggplot2::layer_data(p)

  expect_false(x$flipped_aes[1])
})

Try the SDGdetector package in your browser

Any scripts or data that you put into this service are public.

SDGdetector documentation built on May 31, 2023, 9:32 p.m.