R/insertAssignmentPipe.R

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

Defines functions insertAssignmentPipe

Documented in insertAssignmentPipe

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