如何使R-Script等待鼠标单击

Question

我有一个简单的脚本，该脚本是我从命令行（c:pathfoo> 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)