Ignore empty lines when trimming common leading whitespace

tidyverse · Sep 12, 2018 · d37ac25 · d37ac25
1 parent 8c64e13
commit d37ac25
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -26,8 +26,9 @@ trim_ws <- function(x) {
 
 trim_common_leading_ws <- function(x) {
   m <- regexpr("^(\\s*)", x)
-  ws <- regmatches(x, m)
-  num <- min(nchar(ws))
+  n_chars <- nchar(x)
+  n_spaces <- attr(m, which = "match.length")
+  num <- min(n_spaces[n_chars > 0])
   substring(x, num + 1)
 }