R/pastehistory.R

In calligross/pastehistory: paste from history

pastehistory <- function() {
  tmphistory <- tempfile()
  savehistory(tmphistory)
  histcon <- file(tmphistory, open = "r")
  history <- readLines(histcon)
  close.connection(histcon)
  last <- length(history)
  last_command <- history[last]
  insertText(last_command)
}