Nothing
test_that("CoordCartesian", {
expect_faithful_ggplot_construction(ggplot2::ggplot() + ggplot2::scale_x_continuous(limits = c(325, 500)))
expect_faithful_ggplot_construction(ggplot2::ggplot() + ggplot2::coord_cartesian(xlim = c(325, 500)))
expect_faithful_ggplot_construction(ggplot2::ggplot() + ggplot2::coord_cartesian(xlim = c(325, 500)))
expect_faithful_ggplot_construction(ggplot2::ggplot() + ggplot2::coord_cartesian(xlim = c(325, 500), expand = FALSE))
expect_faithful_ggplot_construction(ggplot2::ggplot() + ggplot2::coord_cartesian(expand = FALSE))
})
test_that("CoordFixed", {
expect_snapshot({
construct(ggplot2::coord_fixed(ratio = 1))
construct(ggplot2::coord_fixed(ratio = 5))
construct(ggplot2::coord_fixed(ratio = 1/5))
construct(ggplot2::coord_fixed(xlim = c(15, 30)))
})
})
test_that("CoordFlip", {
expect_snapshot({
construct(ggplot2::coord_flip())
})
})
test_that("CoordMap", {
expect_snapshot({
construct(ggplot2::coord_map())
construct(ggplot2::coord_map("azequalarea", orientation = c(-36.92, 174.6, 0)))
construct(ggplot2::coord_quickmap())
construct(ggplot2::coord_map("gilbert"))
construct(ggplot2::coord_map("conic", lat0 = 30))
})
})
test_that("CoordPolar", {
expect_snapshot({
construct(ggplot2::coord_polar(theta = "y"))
construct(ggplot2::coord_polar())
construct(ggplot2::coord_polar("y", start = pi / 3))
})
})
test_that("CoordSf", {
skip_if(is.na(suppressWarnings(sf::st_crs(4326)$input)))
expect_snapshot({
construct(ggplot2::coord_sf(default_crs = sf::st_crs(4326)), data = list(crs = sf::st_crs(4326)))
})
})
test_that("CoordCartesian", {
expect_silent({
construct(ggplot2::coord_trans(x = "log10", y = "log10"), check = FALSE)
construct(ggplot2::coord_trans(x = scales::exp_trans(10), y = scales::exp_trans(10)), check = FALSE)
})
})
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.