R/insertTeePipe.R

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

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