SORU
7 Mart 2013, PERŞEMBE


Nasıl R basarak beklemek?

Kullanıcı bir tuşa basana kadar R senaryomu duraklatmak için istiyorum.

Bunu nasıl yapabilirim?

CEVAP
7 Mart 2013, PERŞEMBE


Yöntem 1

[Enter] konsolda basana kadar bekler:

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

Bir işlev kaydırma:

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

Bu fonksiyonu C Console.ReadKey() en iyi eşdeğerdir#.

Yöntem 2

Senin yazın kadar Duraklat [enter] klavyede tuş vuruşu. Bu yöntemin dezavantajı bir numarası olmayan bir şey yazarsanız, bir hata görüntüler.

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

Bir işlev kaydırma:

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

Yöntem 3

Bir grafik üzerinde bir nokta çizme önce bir tuşa basarak beklemek istiyoruz. Bu durumda, getGraphicsEvent kullanabiliriz() bir grafik içinde. bir tuşa basarak beklemek

Bu örnek program, bu kavramı gösterir:

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

Burada grafik, puan yarısı, klavyede bir sonraki vuruşu için bekleyen renkli ile görebilirsiniz.

Uyumluluk: altında kazanmak ortamlarda kullanma ya da Test.grafik veya X11. Windows ile çalışır Devrimi ile 7 x 64 R v6.1. (Kazan kullanmak değildir.RStudio altında çalışmıyor grafik).

enter image description here

Bunu Paylaş:
  • Google+
  • E-Posta
Etiketler:

YORUMLAR

SPONSOR VİDEO

Rastgele Yazarlar

  • Google Chrome

    Google Chrom

    1 EYLÜL 2008
  • MndsgnVEVO

    MndsgnVEVO

    26 Kasım 2013
  • Unbox Therapy

    Unbox Therap

    21 Aralık 2010