R/pipeaddin.R

In pontsuyu/pipeaddin: add %>>%

Defines functions pipeaddin

Documented in pipeaddin

#' Add %>>%
#'
#' @export
#'
pipeaddin <- function(){
  ctx <- rstudioapi::getActiveDocumentContext()
  rstudioapi::insertText(ctx$selection[[1]]$range$start, " %>>% ")
}