Add wrapr dotpipe addin

WinVector · Nov 18, 2017 · 969836e · 969836e
1 parent 90e676c
commit 969836e
Show file tree

Hide file tree

Showing 5 changed files with 27 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,3 +1,5 @@
 .Rproj.user
 .Rhistory
 .RData
+.DS_Store
+*~
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(findAndReplaceAddin)
+export(insertDotPipeAddin)
 export(insertInAddin)
 export(subsetAddin)
 import(formatR)

diff --git a/R/insertDotPipeAddin.R b/R/insertDotPipeAddin.R
@@ -0,0 +1,8 @@
+#' Insert \%.>\%.
+#'
+#' Call this function as an addin to insert \code{\link[wrapr]{\%.>\%}} at the cursor position.
+#'
+#' @export
+insertDotPipeAddin <- function() {
+  rstudioapi::insertText(" %.>% ")
+}
diff --git a/inst/rstudio/addins.dcf b/inst/rstudio/addins.dcf
@@ -1,3 +1,8 @@
+Name: Insert %.>%
+Description: Inserts `%.>%` at the cursor position.
+Binding: insertDotPipeAddin
+Interactive: false
+
 Name: Insert %in%
 Description: Inserts `%in%` at the cursor position.
 Binding: insertInAddin

diff --git a/man/insertDotPipeAddin.Rd b/man/insertDotPipeAddin.Rd