訪問/操縱R中的歷史記錄堆棧（向上/向下箭頭）

Question

我正在R中開發一個類似於交互式外殼的小工具，該工具使用readline來提示標准輸入，如下所示：

console <- function(){
  while(nchar(input <- readline(">>> "))) {
    message("You typed: ", input)
  }
}

它有效，但唯一令我困擾的是，以這種方式輸入的行不會被壓入歷史堆棧。 按下R中的向上箭頭會給出在啟動控制台之前輸入的最后一個R命令。

有什么方法可以手動將input行推入歷史記錄堆棧，以便按向上箭頭將顯示在控制台功能中輸入的最新行？

Answer 1

我在儀式中使用此命令將命令添加到命令歷史記錄。 本質上，您可以只savehistory本地文件中的savehistory和loadhistory 。 我做：

tmphistory <- tempfile()
savehistory(tmphistory)
histcon <- file(tmphistory, open="a")
writeLines(code, histcon)
close(histcon)
loadhistory(tmphistory)
unlink(tmphistory)

注意： Mac使用歷史記錄的方式與其他OS不同 ，因此請務必小心。