Create RStudio addin for %<-%

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: zeallot
 Type: Package
 Title: Multiple, Unpacking, and Destructuring Assignment
-Version: 0.1.0.9000
+Version: 0.1.0.9001
 Authors@R: c(
     person("Nathan", "Teetor", email = "nathanteetor@gmail.com",
            role = c("aut", "cre")),
@@ -22,6 +22,7 @@ VignetteBuilder: knitr
 Depends:
     R (>= 3.2)
 Suggests:
+    rstudioapi,
     testthat,
     knitr,
     rmarkdown,

NAMESPACE

@@ -9,3 +9,4 @@ S3method(destructure,summary.lm)
 export("%->%")
 export("%<-%")
 export(destructure)
+export(rs_addin_insert_multi_assign)

NEWS.md

@@ -1,8 +1,9 @@
-# zeallot 0.1.0.9000
+# zeallot 0.1.0.9001
 
 ## Minor Improvements
 
 * Formally support R versions >= 3.2
+* RStudio addin now supplied for `%<-%` (@dkahle)
 
 # zeallot 0.1.0
 

R/addins.R

@@ -0,0 +1,14 @@
+#' Insert multiple assignment operator
+#'
+#' Call this function as an addin to insert \code{ \%<-\% } at the
+#' cursor position.
+#'
+#' @return \code{structure(list(), .Names = character(0))}
+#' @author David Kahle \email{david@@kahle.io}
+#' @export
+rs_addin_insert_multi_assign <- function() {
+  rstudioapi::insertText(
+    rstudioapi::getActiveDocumentContext()$selection[[1]]$range,
+    " %<-% "
+  )
+}

inst/rstudio/addins.dcf

@@ -0,0 +1,4 @@
+Name: Insert %<-%
+Description: Inserts `%<-%` at the cursor position.
+Binding: rs_addin_insert_multi_assign
+Interactive: false