test_that("geom_blank", {
skip('Just ignore this test')
qp <- expect_warning(qplot(), "deprecated")
l <- ggplotly(qp)$x
expect_length(l$data, 1)
expect_false(l$data[[1]]$visible)
l <- ggplotly(ggplot())$x
expect_length(l$data, 1)
expect_false(l$data[[1]]$visible)
})
Generated by dwww version 1.15 on Fri Jun 21 22:10:16 CEST 2024.