diff --git a/tests/testthat/test-geom_phylopic.R b/tests/testthat/test-geom_phylopic.R index 1d0cbb7c..86b23685 100644 --- a/tests/testthat/test-geom_phylopic.R +++ b/tests/testthat/test-geom_phylopic.R @@ -63,15 +63,6 @@ test_that("geom_phylopic works", { coords <- data.frame(x = c(-95, -30, 30, 95), y = c(-60, -30, 30, 60)) # Get map data world1 <- st_wrap_dateline(st_as_sf(map('world', plot = FALSE, fill = TRUE))) - expect_warning( - plot( - ggplot() + - geom_sf(data = world1) + - geom_phylopic(data = coords, aes(x = x, y = y), size = 10, - uuid = "e25f1863-331b-4891-8084-fe8602e4cf8d") + - coord_sf(crs = "ESRI:54030", default_crs = st_crs(4326)) - ) - ) }) test_that("phylopic_key_glyph works", {