R/insertEagerPipe.R

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

Defines functions insertEagerPipe

Documented in insertEagerPipe

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