tests/testthat/test-ggteo.R

test_that("ggteo works", {
  library(ggplot2)  
  graph <- ggteo(mpg) + geom_bar(aes(hwy))
  testthat::expect_equal(attr(graph, "class"), c("gg", "ggplot"))
  
})
jengelaere/enr.reseaux documentation built on Dec. 20, 2021, 11:01 p.m.