fix dot-paren check in pipe

WinVector · Dec 11, 2018 · 91b9bd6 · 91b9bd6
1 parent 8963e61
commit 91b9bd6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/bpipe.R b/R/bpipe.R
@@ -388,7 +388,9 @@ pipe_impl <- function(pipe_left_arg,
     (length(as.character(pipe_right_arg[[1]]))==1) &&
     (as.character(pipe_right_arg[[1]])=="function")
   # special-case .() on RHS
-  dot_paren <- (is.call(pipe_right_arg) && as.character(pipe_right_arg[[1]])==".")
+  dot_paren <- is.call(pipe_right_arg) &&
+    (length(as.character(pipe_right_arg[[1]]))==1) &&
+    (as.character(pipe_right_arg[[1]])[[1]]==".")
   # check for right-apply situations
   if(is.function(pipe_right_arg) ||
      is_name || qualified_name ||