Permalink
Browse files

Remove unused function

This functionality was moved to pkgload
  • Loading branch information...
1 parent f5a5ba0 commit d3482c5ee63356f7b6f042b494bed5f11861e933 @jimhester jimhester committed Jun 13, 2017
Showing with 0 additions and 14 deletions.
  1. +0 −14 R/zzz.r
View
14 R/zzz.r
@@ -45,20 +45,6 @@ NULL
#' @keywords internal
NULL
-onload_assign("trimws",
- if (getRversion() < "3.2.0") {
- function(x, which = c("both", "left", "right")) {
- switch(match.arg(which),
- left = sub("^[ \t\r\n]+", "", x, perl = TRUE),
- right = sub("[ \t\r\n]+$", "", x, perl = TRUE),
- both = trimws(trimws(x, "left"), "right")
- )
- }
- } else {
- base::trimws
- }
-)
-
.onLoad <- function(libname, pkgname) {
op <- options()
op.devtools <- list(

0 comments on commit d3482c5

Please sign in to comment.