R/insert-dashes.R

In pat-s/raddins: RStudio addins of pat-s

#' Insert dashes.
#'
#' Call this function as an addin to insert dashes until column 80.
#'
#' @export
insert_dashes <- function() {

  # Get active document context
  context <- rstudioapi::getActiveDocumentContext()

  # Get column of cursor position
  current_col <- context$selection[[1]]$range[[1]][[2]]

  # Calculate how many dashes from current cursor position until column 80
  num_dashes <- 80 - current_col + 1

  # Insert dashes
  rstudioapi::insertText(paste0(strrep("-", num_dashes)))
}