R/insertExpositionPipe.R

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

Defines functions insertExpositionPipe

Documented in insertExpositionPipe

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