Jak czekać na naciśnięcie klawisza w R?

Question

Chcę wstrzymać mój skrypt R, dopóki użytkownik nie naciśnie klawisza.

Jak to zrobić?

Answer 1

Jak ktoś już napisał w komentarzu, nie musisz używać kota przed readline(). Wystarczy napisać:

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

Jeśli nie chcesz, aby przypisać ją do zmiennej i nie chcą powrotu drukowany w konsoli, owinąć readline() w invisible():

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

Answer 2

Metoda 1

Waits do momentu naciśnięcia przycisku [ENTER] w konsoli:

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

zawijania do funkcji:

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

Ta funkcja jest najlepszym odpowiednikiem Console.ReadKey() w języku C#.

Metoda 2

Pauza aż wpisać naciśnięcie klawisza [Enter] na klawiaturze. Wadą tej metody jest to, że jeśli wpiszesz coś, co nie jest liczbą, wyświetli się błąd.

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

owijania do funkcji:

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

Metoda 3

Wyobraź sobie, że chcesz czekać na naciśnięcie klawisza przed wykreślenie kolejny punkt na wykresie. W takim przypadku możemy użyć getGraphicsEvent(), aby poczekać na naciśnięcie klawisza na wykresie.

Ten przykładowy program przedstawia koncepcję:

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

Tu można zobaczyć na wykresie, przy czym połowa z jego punktów barwnych, czekając na kolejne naciśnięcie klawisza na klawiaturze.

Zgodność: Przetestowane w środowiskach używają albo win.graph, albo X11. Działa z Windows 7 x64 z Revolution R v6.1. Nie działa pod RStudio (ponieważ nie używa win.graph).

Answer 3

Oto trochę funkcji (przy użyciu pakietu tcltk), który otworzy się małe okienko i czekać, aż albo kliknąć przycisk Kontynuuj lub nacisnąć dowolny przycisk (podczas gdy małe okno wciąż ma fokus) , to pozwoli twojemu skryptowi kontynuować.

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

Wystarczy umieścić w skrypcie mywait() w dowolnym miejscu, w którym chcesz wstrzymać skrypt.

Działa to na każdej platformie obsługującej tcltk (co moim zdaniem jest najczęstsze), odpowiada na każde naciśnięcie klawisza (nie tylko wpis), a nawet działa, gdy skrypt jest uruchamiany w trybie wsadowym (ale nadal działa zatrzymuje się w trybie wsadowym, więc jeśli nie będziesz go kontynuować, będzie to czekać na zawsze). Można dodać licznik czasu, aby był kontynuowany po określonym czasie, jeśli nie został kliknięty lub został naciśnięty klawisz.

Nie zwraca tego, który klawisz został naciśnięty (ale można to zmienić).

Answer 4

R i Rscript zarówno wysyła '', aby odczytywać i skanować w trybie nieinteraktywnym (patrz ? readline). Rozwiązaniem jest wymuszenie skanowania przy użyciu stdin.

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

Przykład:

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