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
  }
}

Try the grafify package in your browser

Any scripts or data that you put into this service are public.

grafify documentation built on May 29, 2024, 3:49 a.m.