rm call to strwidth() (closes #17)

leeper · Jul 14, 2017 · 8b60538 · 8b60538
1 parent aace3dd
commit 8b60538
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: slopegraph
-Version: 0.1.13
+Version: 0.1.14
 Title: Edward Tufte-Inspired Slopegraphs
-Date: 2016-12-08
+Date: 2017-07-14
 Authors@R: c(person("Thomas", "Leeper", role = c("aut","cre"),
                     email = "thosjleeper@gmail.com"))
 Description: Convert a data frame (containing a panel dataset, where rows

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# slopegraph 0.1.14
+
+* Remove call to `strwidth()` in `ggslopegraph()`. (#17, h/t Boris Shor)
+
 # slopegraph 0.1.13
 
 * Added a new dataset, "bachelors", containing data on US Bachelors degrees conferred 1974-2013.

diff --git a/R/ggslopegraph.R b/R/ggslopegraph.R
@@ -135,7 +135,7 @@ function(data,
         }
 
     if (is.null(offset.x)) {
-        offset.x <- (max(strwidth(sprintf(fmt, long[["value"]]))) + 0.02)/2L
+        offset.x <- (max(nchar(sprintf(fmt, long[["value"]]))) + 0.02)/2L
     }
 
     # segments