remove orphan functions

Author: teunbrand

R/geom-hex.R

@@ -117,34 +117,3 @@ GeomHex <- ggproto("GeomHex", Geom,
 
   rename_size = TRUE
 )
-
-
-# Draw hexagon grob
-# Modified from code by Nicholas Lewin-Koh and Martin Maechler
-#
-# @param x positions of hex centres
-# @param y positions
-# @param size vector of hex sizes
-# @param gp graphical parameters
-# @keyword internal
-#
-# THIS IS NO LONGER USED BUT LEFT IF CODE SOMEWHERE ELSE RELIES ON IT
-hexGrob <- function(x, y, size = rep(1, length(x)), gp = gpar()) {
-  if (length(y) != length(x)) {
-    cli::cli_abort("{.arg x} and {.arg y} must have the same length")
-  }
-
-  dx <- resolution(x, FALSE)
-  dy <- resolution(y, FALSE) / sqrt(3) / 2 * 1.15
-
-  hexC <- hexbin::hexcoords(dx, dy, n = 1)
-
-  n <- length(x)
-
-  polygonGrob(
-    x = rep.int(hexC$x, n) * rep(size, each = 6) + rep(x, each = 6),
-    y = rep.int(hexC$y, n) * rep(size, each = 6) + rep(y, each = 6),
-    default.units = "native",
-    id.lengths = rep(6, n), gp = gp
-  )
-}

R/guides-.R

@@ -870,19 +870,6 @@ include_layer_in_guide <- function(layer, matched) {
   isTRUE(layer$show.legend)
 }
 
-# Simplify legend position to one of horizontal/vertical/inside
-legend_position <- function(position) {
-  if (length(position) == 1) {
-    if (position %in% c("top", "bottom")) {
-      "horizontal"
-    } else {
-      "vertical"
-    }
-  } else {
-    "inside"
-  }
-}
-
 # resolve the guide from the scale and guides
 resolve_guide <- function(aesthetic, scale, guides, default = "none", null = "none") {
   guides[[aesthetic]] %||% scale$guide %|W|% default %||% null

R/labeller.R

@@ -173,14 +173,6 @@ label_parsed <- function(labels, multi_line = TRUE) {
 }
 class(label_parsed) <- c("function", "labeller")
 
-find_names <- function(expr) {
-  if (is.call(expr)) {
-    unlist(lapply(expr[-1], find_names))
-  } else if (is.name(expr)) {
-    as.character(expr)
-  }
-}
-
 #' Label with mathematical expressions
 #'
 #' `label_bquote()` offers a flexible way of labelling

R/layer.R

@@ -463,8 +463,6 @@ Layer <- ggproto("Layer", NULL,
   }
 )
 
-is.layer <- function(x) inherits(x, "Layer")
-
 check_subclass <- function(x, subclass,
                            argname = to_lower_ascii(subclass),
                            env = parent.frame(),

R/performance.R

@@ -10,8 +10,6 @@ mat_2_df <- function(x, col_names = colnames(x)) {
   data_frame0(!!!cols, .size = nrow(x))
 }
 
-df_col <- function(x, name) .subset2(x, name)
-
 df_rows <- function(x, i) {
   cols <- lapply(x, `[`, i = i)
   data_frame0(!!!cols, .size = length(i))

R/quick-plot.R

@@ -173,8 +173,3 @@ qplot <- function(x, y, ..., data, facets = NULL, margins = FALSE,
 #' @export
 #' @rdname qplot
 quickplot <- qplot
-
-is.constant <- function(x) {
-  is_I_call <- function(x) is.call(x) && identical(x[[1]], quote(I))
-  vapply(x, is_I_call, logical(1))
-}

R/scale-view.R

@@ -90,23 +90,6 @@ view_scale_secondary <- function(scale, limits = scale$get_limits(),
   }
 }
 
-view_scale_empty <- function() {
-  ggproto(NULL, ViewScale,
-    is_empty = function() TRUE,
-    is_discrete = function() NA,
-    dimension = function() c(0, 1),
-    get_limits = function() c(0, 1),
-    get_breaks = function() NULL,
-    get_breaks_minor = function() NULL,
-    get_labels = function(breaks = NULL) breaks,
-    rescale = function(x) cli::cli_abort("Not implemented."),
-    map = function(x) cli::cli_abort("Not implemented."),
-    make_title = function(title) title,
-    break_positions = function() NULL,
-    break_positions_minor = function() NULL
-  )
-}
-
 ViewScale <- ggproto("ViewScale", NULL,
   # map, rescale, and make_title need a reference
   # to the original scale

R/utilities.R

@@ -190,12 +190,6 @@ waiver <- function() structure(list(), class = "waiver")
 
 is.waive <- function(x) inherits(x, "waiver")
 
-
-rescale01 <- function(x) {
-  rng <- range(x, na.rm = TRUE)
-  (x - rng[1]) / (rng[2] - rng[1])
-}
-
 pal_binned <- function(palette) {
   function(x) {
     palette(length(x))
@@ -310,15 +304,6 @@ compact <- function(x) {
 
 is.formula <- function(x) inherits(x, "formula")
 
-deparse2 <- function(x) {
-  y <- deparse(x, backtick = TRUE)
-  if (length(y) == 1) {
-    y
-  } else {
-    paste0(y[[1]], "...")
-  }
-}
-
 dispatch_args <- function(f, ...) {
   args <- list(...)
   formals <- formals(f)
@@ -353,14 +338,6 @@ with_seed_null <- function(seed, code) {
   }
 }
 
-seq_asc <- function(to, from) {
-  if (to > from) {
-    integer()
-  } else {
-    to:from
-  }
-}
-
 # Needed to trigger package loading
 #' @importFrom tibble tibble
 NULL