From 88c275c086ea7569d7b568afc13899de71ecce60 Mon Sep 17 00:00:00 2001 From: Hiroaki Yutani Date: Sat, 9 Jul 2022 11:11:38 +0900 Subject: [PATCH] Remove duplicated CoordPolar$render_fg() --- R/coord-polar.r | 35 ----------------------------------- 1 file changed, 35 deletions(-) diff --git a/R/coord-polar.r b/R/coord-polar.r index bb8e9a16a0..61d74e31ab 100644 --- a/R/coord-polar.r +++ b/R/coord-polar.r @@ -235,41 +235,6 @@ CoordPolar <- ggproto("CoordPolar", Coord, )) }, - render_fg = function(self, panel_params, theme) { - if (is.null(panel_params$theta.major)) { - return(element_render(theme, "panel.border")) - } - - theta <- theta_rescale(self, panel_params$theta.major, panel_params) - labels <- panel_params$theta.labels - - # Combine the two ends of the scale if they are close - theta <- theta[!is.na(theta)] - ends_apart <- (theta[length(theta)] - theta[1]) %% (2 * pi) - if (length(theta) > 0 && ends_apart < 0.05) { - n <- length(labels) - if (is.expression(labels)) { - combined <- substitute(paste(a, "/", b), - list(a = labels[[1]], b = labels[[n]])) - } else { - combined <- paste(labels[1], labels[n], sep = "/") - } - labels[[n]] <- combined - labels <- labels[-1] - theta <- theta[-1] - } - - grobTree( - if (length(labels) > 0) element_render( - theme, "axis.text.x", - labels, 0.45 * sin(theta) + 0.5, 0.45 * cos(theta) + 0.5, - hjust = 0.5, vjust = 0.5, - default.units = "native" - ), - element_render(theme, "panel.border") - ) - }, - render_fg = function(self, panel_params, theme) { if (is.null(panel_params$theta.major)) { return(element_render(theme, "panel.border"))