Nothing
base <- ggplot(faithfuld, aes(eruptions, waiting, fill = density))
test_that("geom_polygonraster has correct class and inheritance", {
g <- base + geom_polygonraster()
g <- g$layers[[1]]$geom
expect_s3_class(g, "GeomPolygonRaster")
expect_s3_class(g, "GeomRaster")
})
test_that("geom_polygonraster outputs correct grob type", {
g <- base + geom_polygonraster()
g <- layer_grob(g)[[1]]
expect_s3_class(g, "polygon")
expect_s3_class(g, "grob")
})
test_that("geom_polygonraster reparameterises raster", {
ctrl <- base + geom_raster()
test <- base + geom_polygonraster()
ctrl <- layer_data(ctrl)
test <- layer_data(test)
expect_equal(nrow(ctrl) * 4, nrow(test))
})
# Re-base
df <- data.frame(x = row(volcano)[T],
y = col(volcano)[T],
z = volcano[T])
base <- ggplot(df, aes(x, y, fill = z))
test_that("geom_polygonraster hjust works", {
test1 <- base + geom_polygonraster(hjust = 0)
test2 <- base + geom_polygonraster(hjust = 1)
test1 <- layer_data(test1)
test2 <- layer_data(test2)
expect_identical(test1$y, test2$y)
expect_identical(test1$x + 1, test2$x)
})
test_that("geom_polygonraster vjust works", {
test1 <- base + geom_polygonraster(vjust = 0)
test2 <- base + geom_polygonraster(vjust = 1)
test1 <- layer_data(test1)
test2 <- layer_data(test2)
expect_identical(test1$y + 1, test2$y)
expect_identical(test1$x, test2$x)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.