Rでキーを押すのを待つ方法は？

ユーザーがキーを押すまでRスクリプトを一時停止したいのですが。

どうすればよいですか？

誰かがすでにコメントに書いているので、以前に猫を使う必要はありませんreadline()。単に書く：

readline(prompt="Press [enter] to continue")

それを変数に割り当てたくない場合、およびコンソールに戻り値を出力したくない場合は、をでラップreadline()しますinvisible()。

invisible(readline(prompt="Press [enter] to continue"))

方法1

コンソールで[Enter]を押すまで待機します。

cat ("Press [enter] to continue")
line <- readline()

関数へのラッピング：

readkey <- function()
{
    cat ("Press [enter] to continue")
    line <- readline()
}

この関数は、Console.ReadKey()C＃のと同等です。

方法2

キーボードで[Enter]キーストロークを入力するまで一時停止します。この方法の欠点は、数値ではない何かを入力するとエラーが表示されることです。

print ("Press [enter] to continue")
number <- scan(n=1)

関数へのラッピング：

readkey <- function()
{
    cat("[press [enter] to continue]")
    number <- scan(n=1)
}

方法3

グラフに別の点をプロットする前に、キーを押すのを待ちたいと想像してください。この場合、getGraphicsEvent（）を使用して、グラフ内でキーが押されるのを待ちます。

このサンプルプログラムは、概念を示しています。

readkeygraph <- function(prompt)
{
    getGraphicsEvent(prompt = prompt, 
                 onMouseDown = NULL, onMouseMove = NULL,
                 onMouseUp = NULL, onKeybd = onKeybd,
                 consolePrompt = "[click on graph then follow top prompt to continue]")
    Sys.sleep(0.01)
    return(keyPressed)
}

onKeybd <- function(key)
{
    keyPressed <<- key
}

xaxis=c(1:10) # Set up the x-axis.
yaxis=runif(10,min=0,max=1) # Set up the y-axis.
plot(xaxis,yaxis)

for (i in xaxis)
{
    # On each keypress, color the points on the graph in red, one by one.
    points(i,yaxis[i],col="red", pch=19)
    keyPressed = readkeygraph("[press any key to continue]")
}

ここでは、グラフの半分が色付きで表示され、キーボードの次のキーストロークを待機しています。

互換性：win.graphまたはX11を使用する環境でテストされています。Revolution R v6.1を搭載したWindows 7 x64で動作します。RStudioでは機能しません（win.graphを使用しないため）。

次の小さな関数（tcltkパッケージを使用）は、小さなウィンドウを開いて、続行ボタンをクリックするか任意のキーを押すまで（小さなウィンドウがまだフォーカスされている間）待機し、スクリプトを続行します。

library(tcltk)

mywait <- function() {
    tt <- tktoplevel()
    tkpack( tkbutton(tt, text='Continue', command=function()tkdestroy(tt)),
        side='bottom')
    tkbind(tt,'<Key>', function()tkdestroy(tt) )

    tkwait.window(tt)
}

ちょうど置くmywait()スクリプトが一時停止することをスクリプトのどこかで。

これはtcltkをサポートするすべてのプラットフォームで動作し（これはすべて一般的なものだと思います）、任意のキー入力（Enterキーだけでなく）に応答し、スクリプトがバッチモードで実行されている場合でも動作します（ただし、バッチモードでは一時停止します） 、そのため、続行する必要がない場合は、永久に待機します）。タイマーを追加して、クリックされなかったり、キーが押されなかったりした場合に、一定時間後にタイマーを継続させることができます。

どのキーが押されたかは返しません（変更することもできます）。

RとRscriptはどちらも''readlineに送信し、非インタラクティブモードでスキャンします（を参照? readline）。解決策は、stdinスキャンを使用して強制することです。

cat('Solution to everything? > ')
b <- scan("stdin", character(), n=1)

例：

$ Rscript t.R 
Solution to everything? > 42
Read 1 item

この回答はSimonの回答に似ていますが、改行以外の追加の入力は必要ありません。

cat("Press Enter to continue...")
invisible(scan("stdin", character(), nlines = 1, quiet = TRUE))

のnlines=1代わりにを使用するとn=1、ユーザーは単にEnterキーを押してRscriptを続行できます。

それを行う方法（ちょっと、キーではなくボタンを押す必要がありますが、十分に近いものです）は、光沢を使用することです。

library(shiny)

ui     <- fluidPage(actionButton("button", "Press the button"))
server <- function(input, output) {observeEvent(input$button, {stopApp()})}

runApp(shinyApp(ui = ui, server = server))

print("He waited for you to press the button in order to print this")

私の経験では、これには独特の特徴があります。runApp関数に従ってコードが記述されたスクリプトを実行した場合でも、アプリのボタン（を使用してアプリを内部から停止するボタン）を押すまで実行されませんstopApp。