tests/testthat/helper-guide-angle.R

get_guide_angle <- function(plot, guide = "x") {
  if (inherits(plot$guides, "Guides")) {
    plot$guides$guides[[guide]]$params$angle
  } else {
    plot$guides$x$angle
  }
}
ashenoy-cmbi/grafify documentation built on April 13, 2025, 3:25 a.m.