adapt test

rnabioco · Jan 31, 2025 · 8b425b1 · 8b425b1
1 parent 5c23a55
commit 8b425b1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/tests/testthat/test_glyph.r b/tests/testthat/test_glyph.r
@@ -10,7 +10,11 @@ test_that("glyphs are rendered", {
 
 test_that("glyph labels are applied", {
   res <- bed_glyph(bed_merge(x, id = dplyr::n()), label = "id")
-  expect_equal(res$labels$label, "id")
+  if ("get_labs" %in% getNamespaceExports("ggplot2")) {
+    expect_equal(ggplot2::get_labs(res)$label, "id")
+  } else {
+    expect_equal(res$labels$label, "id")
+  }
 })
 
 a <- tibble::tribble(