暂停程序

这个是暂停

pause

睡眠

Sys.sleep

等待键盘输入

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

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