R/pasteLastVal.R

In ksint/pasteLastVal: Paste the Last Value as Comment in RStudio

# Paste the .Last.value as a comment in the next line of code
# as a comment in the active Rstudio editor
# by Kyaw Sint (Joe), Thanks to the RStudio team for addins and rstudioapi
#
# modified by AndrewLawrence based on:
#     https://github.com/fraupflaume
#     https://github.com/rstudio/addinexamples


#' pasteLastVal
#'
#' Pastes the last value as a comment.
#'
#' @importFrom rstudioapi insertText getSourceEditorContext setCursorPosition
#'     document_position
#' @importFrom stringr str_replace_all regex
#' @importFrom utils capture.output
#' @export
pasteLastVal <- function() {
  outputstr <- utils::capture.output(
    tryCatch(
      print(.Last.value),
      warning = "",
      error = ""
    ))

  outputstr <- paste(outputstr, collapse = "\n")
  outputstr <- paste("#", outputstr)
  outputstr <- gsub("\n", "\n# ", outputstr)
  outputstr <- paste(outputstr, "\n")

  outputstr <- stringr::str_replace_all(outputstr,
                                        stringr::regex("(\\033.*?m)"),
                                        "")

  se_context <- rstudioapi::getSourceEditorContext()
  se_id <- se_context$id

  rstudioapi::insertText(text = outputstr,
                         id = se_id)
  rstudioapi::setCursorPosition(
    rstudioapi::document_position(
      se_context$selection[[1]][["range"]][["end"]][1],
      1
    ),
    id = se_id
  )
}