tests/testthat/test-gg_csobczak.R


1
2
3
4
5
6
7

test_that("returns a ggplot object", {
	df <- data.frame(x = rnorm(10), y = rnorm(10))
	p <- ggplot2::ggplot(data = df, ggplot2::aes(x = x, y = y)) +
	ggplot2::geom_point()
	p <- gg_csobczak(p)
	inherits(p, 'ggplot')
})