Fix #134 and fix #135 Avoid masking of tolower

thomasp85 · Mar 14, 2019 · 89de705 · 89de705
1 parent 2229721
commit 89de705
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # ggforce (development version)
 
+- Fixed a regression in `geom_sina()` where the computation would fail with a
+  warning due to `tolower()` being masked (#134, #135).
 
 #ggforce 0.2.1
 

diff --git a/R/sina.R b/R/sina.R
@@ -392,7 +392,7 @@ calc_bw <- function(x, bw) {
     if (length(x) < 2)
       stop("need at least 2 points to select a bandwidth automatically", call. = FALSE)
     bw <- switch(
-      tolower(bw),
+      base::tolower(bw),
       nrd0 = stats::bw.nrd0(x),
       nrd = stats::bw.nrd(x),
       ucv = stats::bw.ucv(x),