From c39a9d5bd1616bad81975568b3cb4d5c6402e077 Mon Sep 17 00:00:00 2001
From: mattdowle <mattjdowle@gmail.com>
Date: Wed, 17 Oct 2018 21:56:50 -0700
Subject: [PATCH] backport trimws from R 3.2.0 to 3.1.0

---
 R/data.table.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/R/data.table.R b/R/data.table.R
index a8ad522b42..3544790605 100644
--- a/R/data.table.R
+++ b/R/data.table.R
@@ -1,4 +1,12 @@
 
+if (!exists("trimws", "package:base")) {
+  # trimws was new in R 3.2.0. Backport it for internal data.table use in R 3.1.0
+  trimws <- function(x) {
+    mysub <- function(re, x) sub(re, "", x, perl = TRUE)
+    mysub("[ \t\r\n]+$", mysub("^[ \t\r\n]+", x))
+  }
+}
+
 dim.data.table <- function(x)
 {
   .Call(Cdim, x)