如何让r-script等待鼠标点击？

Question

我有这个简单的脚本，我从命令行（c:\path\foo> r --ess --slave -q -f myScript.R）执行：

library(ggmap)

x11()
qmap('Hauptbahnhof Zürich', zoom=18, source='osm')

我希望脚本等到用户用鼠标点击图片。这个版本刚刚退出。

我尝试使用z <- locator(1)，但这会给我一个Error in locator(1) : plot.new has not been called yet Execution halted错误。

我也试过

getGraphicsEvent(
    prompt      = "Waiting for input", 
    onMouseDown = NULL,
    onMouseMove = NULL,
    onMouseUp   = NULL, 
    onKeybd     = NULL)

然而，这种方法只是将NULL打印到控制台然后退出。

那么，我该如何等待用户点击图片继续进行？

Answer 1

虽然我没有找到答案让脚本等到用户点击鼠标，但至少我可以等他按下控制台上的Enter：

readLines('stdin', n=1)