R/insertPipe.R

In konradedgar/extraInserts: RStudio Addin to Insert Various (Pipe) Operators

Defines functions insertPipe

Documented in insertPipe

#' Insert `%>%`
#'
#' Inserts [`%>%`][magrittr::%>%] at the cursor position.
#'
#' @export
insertPipe <- function() {
    glyph <- paste0("%>%", " ")
    rstudioapi::insertText(ifelse(nextToSpace(), glyph, prefixSpace(glyph)))
}