remove old backport unitType()

Author: teunbrand

R/backports.R

@@ -17,26 +17,6 @@ if (getRversion() < "3.3") {
 
 on_load(backport_unit_methods())
 
-unitType <- function(x) {
-  unit <- attr(x, "unit")
-  if (!is.null(unit)) {
-    return(unit)
-  }
-  if (is.list(x) && is.unit(x[[1]])) {
-    unit <- vapply(x, unitType, character(1))
-    return(unit)
-  } else if ("fname" %in% names(x)) {
-    return(x$fname)
-  }
-  rep("", length(x)) # we're only interested in simple units for now
-}
-
-on_load({
-  if ("unitType" %in% getNamespaceExports("grid")) {
-    unitType <- grid::unitType
-  }
-})
-
 # isFALSE() and isTRUE() are available on R (>=3.5)
 if (getRversion() < "3.5") {
   isFALSE <- function(x) is.logical(x) && length(x) == 1L && !is.na(x) && !x