R/insertNADefault.R

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

Defines functions insertNADefault

Documented in insertNADefault

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