R/insert_scoping_assignment.R

In FinYang/lazytex: Functions and Addins to save keystrokes and clicks

#' Insert Scoping Assignment Operator
#'
#' \code{insert_scoping_assignment} insert \code{<<-} at cursor. Binding to \code{Alt+=} is suggested.
#'
#' @author Yangzhuoran Yang
#' @seealso \code{assignOps}
#' @export
insert_scoping_assignment <- function(){
  context <- rstudioapi::getActiveDocumentContext()

  start <- c(context$selection[[1]]$range$start)
  end <- c(context$selection[[1]]$range$end)
  # rstudioapi::insertText(c(start, end), text = " <<- ")
  if(substr((context$contents[[start[[1]]]]), start[[2]]-1, start[[2]]-1)==" ")
    start[[2]] <- start[[2]]-1
  if(substr((context$contents[[end[[1]]]]), end[[2]], end[[2]])==" ")
    end[[2]] <- end[[2]]+1

  rstudioapi::modifyRange(c(start, end), text = " <<- ")

}