Bagaimana cara menunggu tombol ditekan di R?

Saya ingin menghentikan sementara skrip R saya sampai pengguna menekan tombol.

Bagaimana saya melakukan ini?

Karena seseorang sudah menulis di komentar, Anda tidak harus menggunakan kucing sebelumnya readline(). Cukup tulis:

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

Jika Anda tidak ingin menetapkannya ke variabel dan tidak ingin pengembalian dicetak di konsol, bungkus readline()dalam invisible():

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

Metode 1

Menunggu sampai Anda menekan [enter] di konsol:

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

Membungkus menjadi sebuah fungsi:

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

Fungsi ini adalah padanan terbaik Console.ReadKey()di C #.

Metode 2

Jeda hingga Anda mengetik tombol [enter] pada keyboard. Kerugian dari metode ini adalah jika Anda mengetik sesuatu yang bukan angka, maka akan muncul kesalahan.

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

Membungkus menjadi sebuah fungsi:

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

Metode 3

Bayangkan Anda ingin menunggu tombol ditekan sebelum memplot titik lain pada grafik. Dalam kasus ini, kita bisa menggunakan getGraphicsEvent () untuk menunggu penekanan tombol dalam grafik.

Contoh program ini menggambarkan konsep:

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]")
}

Di sini Anda dapat melihat grafik, dengan setengah dari titiknya diwarnai, menunggu penekanan tombol berikutnya pada keyboard.

Kompatibilitas: Diuji di bawah lingkungan, gunakan win.graph atau X11 . Bekerja dengan Windows 7 x64 dengan Revolution R v6.1. Tidak bekerja di bawah RStudio (karena tidak menggunakan win.graph).

Berikut adalah fungsi kecil (menggunakan paket tcltk) yang akan membuka jendela kecil dan menunggu sampai Anda mengklik tombol lanjutkan atau menekan tombol apa saja (sementara jendela kecil masih fokus), maka skrip Anda akan dilanjutkan.

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)
}

Letakkan saja mywait()di skrip Anda di mana saja yang Anda inginkan untuk menjeda skrip.

Ini berfungsi pada platform apa pun yang mendukung tcltk (yang menurut saya adalah semua yang umum), akan merespons penekanan tombol apa pun (tidak hanya masuk), dan bahkan berfungsi ketika skrip dijalankan dalam mode batch (tetapi masih berhenti dalam mode batch , jadi jika Anda tidak ada di sana untuk melanjutkan itu akan menunggu selamanya). Pengatur waktu dapat ditambahkan untuk membuatnya melanjutkan setelah jumlah waktu yang ditentukan jika tidak diklik atau tombol ditekan.

Itu tidak mengembalikan tombol mana yang ditekan (tetapi dapat dimodifikasi untuk melakukannya).

R dan Rscript keduanya mengirim ''ke readline dan memindai dalam mode non-interaktif (lihat ? readline). Solusinya adalah dengan memaksa stdinmenggunakan scan.

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

Contoh:

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

Jawaban ini mirip dengan jawaban Simon , tetapi tidak memerlukan masukan tambahan selain baris baru.

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

Menggunakan nlines=1alih-alih n=1, pengguna cukup menekan enter untuk melanjutkan Rscript.

Cara melakukannya (agak, Anda harus menekan tombol daripada tombol, tapi cukup dekat) adalah dengan menggunakan mengkilap:

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")

Menurut pengalaman saya, ini memiliki karakteristik unik: bahkan jika Anda menjalankan skrip yang memiliki kode yang ditulis mengikuti runAppfungsinya, itu tidak akan berjalan sampai Anda menekan tombol di aplikasi (tombol yang menghentikan aplikasi dari dalam menggunakan stopApp).