remove outdated code

Author: clauswilke

R/sf.R

@@ -389,104 +389,6 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
     ggname("grill", do.call("grobTree", grobs))
   },
 
-  # not used, kept around for backup
-  render_axis_h_alt = function(self, panel_params, theme) {
-    graticule <- panel_params$graticule
-
-    # top axis
-    if (identical(panel_params$label_axes$top, "E") ||
-          identical(panel_params$label_axes$top, "N")) {
-      # we don't generally know which direction graticules run, so need to consider both
-      ticks1 <- graticule[graticule$type == panel_params$label_axes$top &
-                            graticule$y_start > 0.999, ]
-      ticks2 <- graticule[graticule$type == panel_params$label_axes$top &
-                            graticule$y_end > 0.999, ]
-      tick_positions <- c(ticks1$x_start, ticks2$x_end)
-      tick_labels <- c(ticks1$degree_label, ticks2$degree_label)
-
-      top <- guide_axis(
-        tick_positions,
-        tick_labels,
-        position = "top",
-        theme = theme
-      )
-    } else {
-      top <- zeroGrob()
-    }
-
-    # bottom axis
-    if (identical(panel_params$label_axes$bottom, "E") ||
-          identical(panel_params$label_axes$bottom, "N")) {
-      # we don't generally know which direction graticules run, so need to consider both
-      ticks1 <- graticule[graticule$type == panel_params$label_axes$bottom &
-                           graticule$y_start < 0.001, ]
-      ticks2 <- graticule[graticule$type == panel_params$label_axes$bottom &
-                            graticule$y_end < 0.001, ]
-      tick_positions <- c(ticks1$x_start, ticks2$x_end)
-      tick_labels <- c(ticks1$degree_label, ticks2$degree_label)
-
-      bottom <- guide_axis(
-        tick_positions,
-        tick_labels,
-        position = "bottom",
-        theme = theme
-      )
-    } else {
-      bottom <- zeroGrob()
-    }
-
-    list(top = top, bottom = bottom)
-  },
-
-  # not used, kept around for backup
-  render_axis_v_alt = function(self, panel_params, theme) {
-    graticule <- panel_params$graticule
-
-    # left axis
-    if (identical(panel_params$label_axes$left, "E") ||
-        identical(panel_params$label_axes$left, "N")) {
-      # we don't generally know which direction graticules run, so need to consider both
-      ticks1 <- graticule[graticule$type == panel_params$label_axes$left &
-                            graticule$x_start < 0.001, ]
-      ticks2 <- graticule[graticule$type == panel_params$label_axes$left &
-                            graticule$x_end < 0.001, ]
-      tick_positions <- c(ticks1$y_start, ticks2$y_end)
-      tick_labels <- c(ticks1$degree_label, ticks2$degree_label)
-
-      left <- guide_axis(
-        tick_positions,
-        tick_labels,
-        position = "left",
-        theme = theme
-      )
-    } else {
-      left <- zeroGrob()
-    }
-
-    # right axis
-    if (identical(panel_params$label_axes$right, "E") ||
-        identical(panel_params$label_axes$right, "N")) {
-      # we don't generally know which direction graticules run, so need to consider both
-      ticks1 <- graticule[graticule$type == panel_params$label_axes$right &
-                            graticule$x_start > 0.999, ]
-      ticks2 <- graticule[graticule$type == panel_params$label_axes$right &
-                            graticule$x_end > 0.999, ]
-      tick_positions <- c(ticks1$y_start, ticks2$y_end)
-      tick_labels <- c(ticks1$degree_label, ticks2$degree_label)
-
-      right <- guide_axis(
-        tick_positions,
-        tick_labels,
-        position = "right",
-        theme = theme
-      )
-    } else {
-      right <- zeroGrob()
-    }
-
-    list(left = left, right = right)
-  },
-
   render_axis_h = function(self, panel_params, theme) {
     graticule <- panel_params$graticule