R/pipeOperators.R

In Ranlod/insertPipe: Insert pipe operators

insertAssignmentOperator <- function() {
  rstudioapi::insertText(
    paste0(beforeSpace(),"<-", afterSpace())
  )
}

insertBaseOperator <- function() {
  rstudioapi::insertText(
    paste0(beforeSpace(),"%>%", afterSpace())
    )
}

insertMagrittrCompoundAssignmentOperator <- function() {
  rstudioapi::insertText(
    paste0(beforeSpace(),"%<>%", afterSpace())
  )
}

insertExpositionOperator <- function() {
  rstudioapi::insertText(
    paste0(beforeSpace(),"%$%", afterSpace())
  )
}

insertConcatinateOperator <- function() {
  rstudioapi::insertText(
    paste0(beforeSpace(),"%+%", afterSpace())
    )
}

insertInOperator <- function() {
  rstudioapi::insertText(
    paste0(beforeSpace(),"%in%", afterSpace())
    )
}

insertMagrittrTeeOperator <- function() {
  rstudioapi::insertText(
    paste0(beforeSpace(),"%T>%", afterSpace())
  )
}