R/coord_radar.r

In kraaijenbrink/pkrf: Philip Kraaijenbrink's R functions

# define radar coordinates
coord_radar <- function(theta = "x", start = 0, direction = 1)
{
  theta <- match.arg(theta, c("x", "y"))
  r <- if (theta == "x")
    "y"
  else "x"
  ggproto("CoordRadar", CoordPolar, theta = theta, r = r, start = start,
          direction = sign(direction),
          is_linear = function(coord) TRUE)
}